| [613] | 1 | PXRMDISC ; SLC/PKR - Return the reminder disclaimer in ^TMP. ;06/14/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
|---|
| 3 | ;
|
|---|
| 4 | FORMAT ;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 | ;========================================================
|
|---|
| 18 | LOAD ;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 | ;
|
|---|
