PXRMLCD.m

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

 ;

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       ;