- 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 Feb 18, 2025@23:12:21 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