PXRMGEN.m

PXRMGEN ; SLC/PJH - PXRM General Edit/Inquiry ;09/08/2012

 ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404

 ;

 ;Labels called from list 'PXRM GENERAL EDIT/LIST'

 ;

START(HEADER,PXRMGTYP,IEN) ;

 N PXRMREAD,PXRMSRC,PXRMVARM

 N VALM,VALMAR,VALMBCK,VALMBG,VALMCNT,VALMHDR,VALMSG,X,XMZ

 S X="IORESET"

 D ENDR^%ZISS,EN^VALM("PXRM GENERAL EDIT/LIST")

 W IORESET

 D KILL^%ZISS

 Q

 ;

EXIT ;Exit code

 D CLEAN^VALM10,FULL^VALM1

 S VALMBCK="Q"

 K ^TMP("PXRMGEN",$J)

 Q

 ;

HDR ; Header code

 S VALMHDR(1)=HEADER

 S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 Q

 ;

HELP ;Help code

 N ORU,ORUPRMT,XQORM,PXRMTAG S PXRMTAG="G"_PXRMGTYP

 D EN^VALM("PXRM DIALOG MAIN HELP")

 Q

 ;

INIT ;Init

 S VALMCNT=0

 D BUILD

 Q

 ;

 ;Load details (also called from edit PXRMGEDIT)

BUILD ;

 ;I PXRMGTYP="DTAX" D DTAX^PXRMTDLG(PXRMTIEN)

 I PXRMGTYP="FIP" D FIP^PXRMFIP(PXRMFIP)

 I PXRMGTYP="FPAR" D FPAR^PXRMFIND

 I PXRMGTYP="RCAT" D CAT^PXRMCAT(PXRMCAT)

 I PXRMGTYP="RESN" D RESN^PXRMRESN(PXRMRESN)

 I PXRMGTYP="SHFR" D SHFR^PXRMSHF(PXRMSHF)

 ;Reset Header

 D HDR

 Q

 ;

INQUIRE W IORESET

 ;I PXRMGTYP="DTAX" D INQ^PXRMTDLG(PXRMTIEN)

 I PXRMGTYP="RCAT" D INQ^PXRMCLST(PXRMCAT)

 I PXRMGTYP="DLG" D INQ^PXRMDLST(PXRMDIEN)

 I PXRMGTYP="DLGR" D INQ^PXRMDLST(PXRMDIEN)

 I PXRMGTYP="FIP" D INQ^PXRMFIP(PXRMFIP)

 I PXRMGTYP="FPAR" D INQ^PXRMFLST(PXRMFIEN)

 I PXRMGTYP="RESN" D INQ^PXRMSLST(PXRMRESN)

 I PXRMGTYP="SHFR" D INQ^PXRMSHF(PXRMSHF)

 ;

 N DIR S DIR(0)="E" D ^DIR

 ;

 S VALMBCK="R"

 Q

 ;

PEXIT ;PXRM GENERAL MENU protocol exit code

 S VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 Q

PXRMGEN   ; SLC/PJH - PXRM General Edit/Inquiry ;09/08/2012

 +1       ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404

 +2       ;

 +3       ;Labels called from list 'PXRM GENERAL EDIT/LIST'

 +4       ;

START(HEADER,PXRMGTYP,IEN) ;

 +1        NEW PXRMREAD,PXRMSRC,PXRMVARM

 +2        NEW VALM,VALMAR,VALMBCK,VALMBG,VALMCNT,VALMHDR,VALMSG,X,XMZ

 +3        SET X="IORESET"

 +4        DO ENDR^%ZISS

           DO EN^VALM("PXRM GENERAL EDIT/LIST")

 +5        WRITE IORESET

 +6        DO KILL^%ZISS

 +7        QUIT 

 +8       ;

EXIT      ;Exit code

 +1        DO CLEAN^VALM10

           DO FULL^VALM1

 +2        SET VALMBCK="Q"

 +3        KILL ^TMP("PXRMGEN",$JOB)

 +4        QUIT 

 +5       ;

HDR       ; Header code

 +1        SET VALMHDR(1)=HEADER

 +2        SET VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 +3        QUIT 

 +4       ;

HELP      ;Help code

 +1        NEW ORU,ORUPRMT,XQORM,PXRMTAG

           SET PXRMTAG="G"_PXRMGTYP

 +2        DO EN^VALM("PXRM DIALOG MAIN HELP")

 +3        QUIT 

 +4       ;

INIT      ;Init

 +1        SET VALMCNT=0

 +2        DO BUILD

 +3        QUIT 

 +4       ;

 +5       ;Load details (also called from edit PXRMGEDIT)

BUILD     ;

 +1       ;I PXRMGTYP="DTAX" D DTAX^PXRMTDLG(PXRMTIEN)

 +2        IF PXRMGTYP="FIP"

               DO FIP^PXRMFIP(PXRMFIP)

 +3        IF PXRMGTYP="FPAR"

               DO FPAR^PXRMFIND

 +4        IF PXRMGTYP="RCAT"

               DO CAT^PXRMCAT(PXRMCAT)

 +5        IF PXRMGTYP="RESN"

               DO RESN^PXRMRESN(PXRMRESN)

 +6        IF PXRMGTYP="SHFR"

               DO SHFR^PXRMSHF(PXRMSHF)

 +7       ;Reset Header

 +8        DO HDR

 +9        QUIT 

 +10      ;

INQUIRE    WRITE IORESET

 +1       ;I PXRMGTYP="DTAX" D INQ^PXRMTDLG(PXRMTIEN)

 +2        IF PXRMGTYP="RCAT"

               DO INQ^PXRMCLST(PXRMCAT)

 +3        IF PXRMGTYP="DLG"

               DO INQ^PXRMDLST(PXRMDIEN)

 +4        IF PXRMGTYP="DLGR"

               DO INQ^PXRMDLST(PXRMDIEN)

 +5        IF PXRMGTYP="FIP"

               DO INQ^PXRMFIP(PXRMFIP)

 +6        IF PXRMGTYP="FPAR"

               DO INQ^PXRMFLST(PXRMFIEN)

 +7        IF PXRMGTYP="RESN"

               DO INQ^PXRMSLST(PXRMRESN)

 +8        IF PXRMGTYP="SHFR"

               DO INQ^PXRMSHF(PXRMSHF)

 +9       ;

 +10       NEW DIR

           SET DIR(0)="E"

           DO ^DIR

 +11      ;

 +12       SET VALMBCK="R"

 +13       QUIT 

 +14      ;

PEXIT     ;PXRM GENERAL MENU protocol exit code

 +1        SET VALMSG="+ Next Screen   - Prev Screen   ?? More Actions"

 +2        QUIT