Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRAC7

LRAC7.m

Go to the documentation of this file.
LRAC7 ;SLC/DCM - SET-UP FOR THE KILL ; 8/11/87  09:41 ;
 ;;5.2;LAB SERVICE;;Sep 27, 1994
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)
 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)
 Q
ENT ;from LRAC6
 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
 K LRFD,K Q
OVFL ;from LRAC4, LRAC9
 S LRFULL=1 W !!?10,"Comments continued on next page..." D HEAD1^LRAC6,HEAD^LRAC6 W !!!?10,"...",LRSHN," comments continued.",!
 Q