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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMGEN 1649 printed Sep 02, 2024@18:31:19 Page 2
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