PXRMDISC ; SLC/PKR - Return the reminder disclaimer in ^TMP. ;06/14/2005
;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
;
FORMAT ;Format and store the formatted disclaimer.
N IND,LC,NIN,NOUT,TEXTIN,TEXTOUT
;If the Site Reminder Disclaimer is empty then use the default
;disclaimer.
S IND=$S($D(^PXRM(800,1,"DISC2")):"DISC2",1:"DISC1")
S (LC,NIN)=0
F S LC=$O(^PXRM(800,1,IND,LC)) Q:LC="" D
. S NIN=NIN+1,TEXTIN(NIN)=$G(^PXRM(800,1,IND,LC,0))
D FORMAT^PXRMTEXT(1,70,NIN,.TEXTIN,.NOUT,.TEXTOUT)
K ^PXRM(800,1,"DISCF")
F LC=1:1:NOUT S ^PXRM(800,1,"DISCF",LC,0)=TEXTOUT(LC)
Q
;
;========================================================
LOAD ;Load the formatted disclaimer.
I $D(^TMP("PXRM",$J,"DISC")) Q
N LC
S LC=0
F S LC=$O(^PXRM(800,1,"DISCF",LC)) Q:LC="" D
. S ^TMP("PXRM",$J,"DISC",LC)=^PXRM(800,1,"DISCF",LC,0)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMDISC 873 printed Nov 22, 2024@16:54:01 Page 2
PXRMDISC ; SLC/PKR - Return the reminder disclaimer in ^TMP. ;06/14/2005
+1 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
+2 ;
FORMAT ;Format and store the formatted disclaimer.
+1 NEW IND,LC,NIN,NOUT,TEXTIN,TEXTOUT
+2 ;If the Site Reminder Disclaimer is empty then use the default
+3 ;disclaimer.
+4 SET IND=$SELECT($DATA(^PXRM(800,1,"DISC2")):"DISC2",1:"DISC1")
+5 SET (LC,NIN)=0
+6 FOR
SET LC=$ORDER(^PXRM(800,1,IND,LC))
if LC=""
QUIT
Begin DoDot:1
+7 SET NIN=NIN+1
SET TEXTIN(NIN)=$GET(^PXRM(800,1,IND,LC,0))
End DoDot:1
+8 DO FORMAT^PXRMTEXT(1,70,NIN,.TEXTIN,.NOUT,.TEXTOUT)
+9 KILL ^PXRM(800,1,"DISCF")
+10 FOR LC=1:1:NOUT
SET ^PXRM(800,1,"DISCF",LC,0)=TEXTOUT(LC)
+11 QUIT
+12 ;
+13 ;========================================================
LOAD ;Load the formatted disclaimer.
+1 IF $DATA(^TMP("PXRM",$JOB,"DISC"))
QUIT
+2 NEW LC
+3 SET LC=0
+4 FOR
SET LC=$ORDER(^PXRM(800,1,"DISCF",LC))
if LC=""
QUIT
Begin DoDot:1
+5 SET ^TMP("PXRM",$JOB,"DISC",LC)=^PXRM(800,1,"DISCF",LC,0)
End DoDot:1
+6 QUIT
+7 ;
