PXRMDISC.m

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 ---PXRMDISC   873     printed  Apr 09, 2024@20:51:33                                                                                                                                                                                                     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       ;