20 lines
814 B
Mathematica
20 lines
814 B
Mathematica
SOWKTY ;B'HAM ISC/SAB-Checks codes for service type of CDC Accounts ; 11/26/91 10:50 [ 04/06/95 8:07 AM ]
|
|
;;3.0; Social Work ;**36,37**;27 Apr 93
|
|
F J=1:1 S T=$T(HELP+J) Q:T="" W !?6,$P(T,";",3)," - ",$P(T,";",4,99),!
|
|
K J,T
|
|
Q
|
|
EDIT ; enter here to edit input
|
|
S X=$E(X) I "ADRION"'[$E(X) W !?6,$E(X)_" is not a valid code !",! K X Q
|
|
Q
|
|
INAC ;entry point to activate or deactivate CDC accounts.
|
|
W ! S (DIE,DIC)="^SOWK(651,",DIC("A")="Select CDC Account: ",DIC(0)="AEMQ",DIC("S")="I '$P(^(0),""^"",2),'$P(^(0),U,8),($P(^(0),U,7)'=0)" D ^DIC G:"^"[$E(X) Q G:Y<1 INAC S DA=+Y,DR=4 D ^DIE G INAC
|
|
Q K DIC,DA,DIE,X,Y,DR,HELP
|
|
Q
|
|
HELP ;enter valid codes below - label is code, line is expansion
|
|
;;R;RESIDENTIAL CARE HOME
|
|
;;I;INPATIENT
|
|
;;O;OUTPATIENT
|
|
;;N;NURSING HOME CARE UNIT
|
|
;;D;DOMICILIARY
|
|
;;A;ADMINISTRATIVE
|