source: FOIAVistA/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWAPOI.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 404 bytes
Line 
1SOWAPOI ;B'HAM ISC/DLR - POST-INIT for 94 CDC account (651) [ 11/16/94 7:44 AM ]
2V ;;3.0; Social Work ;**36**;27 Apr 93
3POST ;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.