| [613] | 1 | LRAC7 ;SLC/DCM - SET-UP FOR THE KILL ; 8/11/87 09:41 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | LRFD1 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
|
|---|
| 6 | ENT ;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
|
|---|
| 9 | OVFL ;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
|
|---|
