source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRAC7.m@ 1791

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

initial load of FOIAVistA 6/30/08 version

File size: 752 bytes
Line 
1LRAC7 ;SLC/DCM - SET-UP FOR THE KILL ; 8/11/87 09:41 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3LRFD1 S LRFD1=0 F S LRFD1=$O(^TMP($J,"K",LRFD,LRFD1)) Q:LRFD1<1 S ^LAC("LRKILL",LRDFN,LRMH,1,LRFD,LRFD1)=^TMP($J,"K",LRFD,LRFD1)
4 Q:'$D(^LR(LRDFN,"CH",K(1),0)) S P=$P(^(0),U,9),$P(^LR(LRDFN,"CH",K(1),0),U,9)=$S(P[(LRMH_":"_LRPG):P,P[":":P_","_LRMH_":"_LRPG,1:LRMH_":"_LRPG)
5 Q
6ENT ;from LRAC6
7 Q:LRRE S ^LR(LRDFN,"PG",LRMH)=LRMH_U_LRPG S LRFD=0 F S LRFD=$O(^TMP($J,"K",LRFD)) Q:LRFD<1 S:'$D(^(LRFD,0))#2 ^(0)=9999999-LRFD S ^LAC("LRKILL",LRDFN,LRMH,1,LRFD,0)=^(0),K(1)=$P(^(0),U,1) D LRFD1
8 K LRFD,K Q
9OVFL ;from LRAC4, LRAC9
10 S LRFULL=1 W !!?10,"Comments continued on next page..." D HEAD1^LRAC6,HEAD^LRAC6 W !!!?10,"...",LRSHN," comments continued.",!
11 Q
Note: See TracBrowser for help on using the repository browser.