source: WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWKTY.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 814 bytes
Line 
1SOWKTY ;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
6EDIT ; 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
9INAC ;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
11Q K DIC,DA,DIE,X,Y,DR,HELP
12 Q
13HELP ;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
Note: See TracBrowser for help on using the repository browser.