source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMDISC.m@ 1766

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

initial load of WorldVistAEHR

File size: 848 bytes
Line 
1PXRMDISC ; SLC/PKR - Return the reminder disclaimer in ^TMP. ;06/14/2005
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4FORMAT ;Format and store the formatted disclaimer.
5 N IND,LC,NIN,NOUT,TEXTIN,TEXTOUT
6 ;If the Site Reminder Disclaimer is empty then use the default
7 ;disclaimer.
8 S IND=$S($D(^PXRM(800,1,"DISC2")):"DISC2",1:"DISC1")
9 S (LC,NIN)=0
10 F S LC=$O(^PXRM(800,1,IND,LC)) Q:LC="" D
11 . S NIN=NIN+1,TEXTIN(NIN)=$G(^PXRM(800,1,IND,LC,0))
12 D FORMAT^PXRMTEXT(1,70,NIN,.TEXTIN,.NOUT,.TEXTOUT)
13 K ^PXRM(800,1,"DISCF")
14 F LC=1:1:NOUT S ^PXRM(800,1,"DISCF",LC,0)=TEXTOUT(LC)
15 Q
16 ;
17 ;========================================================
18LOAD ;Load the formatted disclaimer.
19 I $D(^TMP("PXRM",$J,"DISC")) Q
20 N LC
21 S LC=0
22 F S LC=$O(^PXRM(800,1,"DISCF",LC)) Q:LC="" D
23 . S ^TMP("PXRM",$J,"DISC",LC)=^PXRM(800,1,"DISCF",LC,0)
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.