source:
WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWAPOI.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 404 bytes |
Line | |
---|---|
1 | SOWAPOI ;B'HAM ISC/DLR - POST-INIT for 94 CDC account (651) [ 11/16/94 7:44 AM ] |
2 | V ;;3.0; Social Work ;**36**;27 Apr 93 |
3 | POST ;POST-INIT |
4 | N X,X2 |
5 | S (X,X2)=0 |
6 | F S X=$O(^SOWK(651,"C",X)) Q:'X I $D(^TMP($J,"CDC",X)) S X2=0 F S X2=$O(^SOWK(651,"C",X,X2)) Q:'X2 S:$P(^SOWK(651,X2,0),U,8)'=1 $P(^SOWK(651,X2,0),U,5)=^TMP($J,"CDC",X) |
7 | K ^TMP($J,"CDC") |
8 | S DIK(1)="4^AC",DIK="^SOWK(651," D ENALL^DIK K DIK |
9 | Q |
Note:
See TracBrowser
for help on using the repository browser.