Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
404 bytes
|
Rev | Line | |
---|
[613] | 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.