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