PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;11/02/2007
;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
;
;Display list creation documentation.
;===========================================================
DCDOC ;Display creation documentation.
N IND,LISTIEN,VALMY
D EN^VALM2(XQORNOD(0))
;If there is no list quit.
I '$D(VALMY) Q
;PXRMDONE is newed in PXRMLPU
S IND="",PXRMDONE=0
F S IND=$O(VALMY(IND)) Q:(IND="")!(PXRMDONE) D
. S LISTIEN=^TMP("PXRMLPU",$J,"SEL",IND)
. D EN^PXRMLCD(LISTIEN)
S VALMBCK="R"
Q
;
;===========================================================
EN(LISTIEN) ;
N VALMBCK,VALMBG,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD
K ^TMP("PXRMLCD",$J)
I $D(^PXRMXP(810.5,LISTIEN,200)) D
. M ^TMP("PXRMLCD",$J)=^PXRMXP(810.5,LISTIEN,200)
. S VALMCNT=$P(^PXRMXP(810.5,LISTIEN,200,0),U,4)
I '$D(^PXRMXP(810.5,LISTIEN,200)) D
. S ^TMP("PXRMLCD",$J,1,0)="No documentation is available."
. S VALMCNT=1
D EN^VALM("PXRM PATIENT LIST CREATION DOC")
Q
;
;===========================================================
EXIT ;Exit code
K ^TMP("PXRMLCD",$J)
D CLEAN^VALM10
D FULL^VALM1
S VALMBCK="R"
Q
;
;===========================================================
HDR ; Header code
S VALMHDR(1)="Documentation for creation of patient list:"
S VALMHDR(2)=" "_$P(^PXRMXP(810.5,LISTIEN,0),U,1)
S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
Q
;
;===========================================================
HELP ;Help code
S X="?" D DISP^XQORM1 W !!
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMLCD 1565 printed Dec 13, 2024@01:46:21 Page 2
PXRMLCD ; SLC/PKR - Reminder Patient List Patients ;11/02/2007
+1 ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+2 ;
+3 ;Display list creation documentation.
+4 ;===========================================================
DCDOC ;Display creation documentation.
+1 NEW IND,LISTIEN,VALMY
+2 DO EN^VALM2(XQORNOD(0))
+3 ;If there is no list quit.
+4 IF '$DATA(VALMY)
QUIT
+5 ;PXRMDONE is newed in PXRMLPU
+6 SET IND=""
SET PXRMDONE=0
+7 FOR
SET IND=$ORDER(VALMY(IND))
if (IND="")!(PXRMDONE)
QUIT
Begin DoDot:1
+8 SET LISTIEN=^TMP("PXRMLPU",$JOB,"SEL",IND)
+9 DO EN^PXRMLCD(LISTIEN)
End DoDot:1
+10 SET VALMBCK="R"
+11 QUIT
+12 ;
+13 ;===========================================================
EN(LISTIEN) ;
+1 NEW VALMBCK,VALMBG,VALMCNT,VALMSG,X,XMZ,XQORM,XQORNOD
+2 KILL ^TMP("PXRMLCD",$JOB)
+3 IF $DATA(^PXRMXP(810.5,LISTIEN,200))
Begin DoDot:1
+4 MERGE ^TMP("PXRMLCD",$JOB)=^PXRMXP(810.5,LISTIEN,200)
+5 SET VALMCNT=$PIECE(^PXRMXP(810.5,LISTIEN,200,0),U,4)
End DoDot:1
+6 IF '$DATA(^PXRMXP(810.5,LISTIEN,200))
Begin DoDot:1
+7 SET ^TMP("PXRMLCD",$JOB,1,0)="No documentation is available."
+8 SET VALMCNT=1
End DoDot:1
+9 DO EN^VALM("PXRM PATIENT LIST CREATION DOC")
+10 QUIT
+11 ;
+12 ;===========================================================
EXIT ;Exit code
+1 KILL ^TMP("PXRMLCD",$JOB)
+2 DO CLEAN^VALM10
+3 DO FULL^VALM1
+4 SET VALMBCK="R"
+5 QUIT
+6 ;
+7 ;===========================================================
HDR ; Header code
+1 SET VALMHDR(1)="Documentation for creation of patient list:"
+2 SET VALMHDR(2)=" "_$PIECE(^PXRMXP(810.5,LISTIEN,0),U,1)
+3 SET VALMSG="+ Next Screen - Prev Screen ?? More Actions"
+4 QUIT
+5 ;
+6 ;===========================================================
HELP ;Help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
