BLRPAMGE ; IHS/MSC/MKK - BLR Parameters And Mail Group Edits ; 13-Oct-2017 14:04 ; MKK
;;5.2;IHS LABORATORY;**1041**;NOV 01, 1997;Build 23
;
EEP ; Ersatz EP
D EEP^BLRGMENU
Q
;
EP ; EP
PEP ; EP
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
D ADDTMENU^BLRGMENU("PARAMS^BLRPAMGE","Edit RPMS Lab Parameters ...")
D ADDTMENU^BLRGMENU("PARADESC^BLRPAMGE","RPMS Lab Parameter's Description ...")
D ADDTMENU^BLRGMENU("MGRPS^BLRPAMGE","Edit RPMS Lab Mail Groups ...")
D ADDTMENU^BLRGMENU("MGRPDESC^BLRPAMGE","Mail Group's Description ...")
;
D MENUDRFM^BLRGMENU("RPMS Lab","Parameters/Mail Groups")
Q
;
; ============================= PARAMETERS MENU ==============================
;
PARAMS ; EP - Edit RPMS Lab Parameters
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
D ADDTMENU^BLRGMENU("BLRCCMNU^BLRPAMGE","Edit BLR CC DATA parameter")
D ADDTMENU^BLRGMENU("DETAGE^BLRPAMGE","Edit BLR AGE DETAIL parameter")
D ADDTMENU^BLRGMENU("PEP^BLREMERA","Edit BLR EMERGENCY ALERT parameter")
D ADDTMENU^BLRGMENU("COLDTACC^BLREMERA","Edit BLR COLL DT PCC VISIT CREATION parameter")
D ADDTMENU^BLRGMENU("CDOBONLY^BLRPAMGE","Edit BLR DOB ONLY parameter")
D ADDTMENU^BLRGMENU("CHRESCNG^BLRPAMGE","Edit BLR LAB RESULTS CHANGED NOTIFY parameter")
D ADDTMENU^BLRGMENU("CHQUALRT^BLRPAMGE","Edit BLR QUALITATIVE ALERT parameter")
D ADDTMENU^BLRGMENU("CHDYSACC^BLRPAMGE","Edit BLR DAYS TO ACCESSION parameter")
D ADDTMENU^BLRGMENU("CHPTCONF^BLRPAMGE","Edit BLR PT CONFIRM parameter")
;
D MENUDRFM^BLRGMENU("RPMS Lab","Parameters")
Q
;
; ============================= PARAMETERS EDIT ==============================
;
DETAGE ; EP - Edit 'BLR AGE DETAIL' parameter
D CHANGE^BLREMERA("BLR AGE DETAIL")
Q
;
CDOBONLY ; EP - 'Change' BLR DOB ONLY parameter
D CHANGE^BLREMERA("BLR DOB ONLY")
Q
;
CHRESCNG ; EP - 'Change' BLR LAB RESULTS CHANGED NOTIFY parameter
D CHANGE^BLREMERA("BLR LAB RESULTS CHANGED NOTIFY")
Q
;
CHQUALRT ; EP - 'Change' BLR QUALITATIVE ALERT parameter
D CHANGE^BLREMERA("BLR QUALITATIVE ALERT")
Q
;
CHDYSACC ; EP - 'Change' BLR DAYS TO ACCESSION parameter
D CHANGEN^BLRPAMGE("BLR DAYS TO ACCESSION","SYS")
Q
;
CHPTCONF ; EP - 'Change' BLR PT CONFIRM parameter
D CHANGEWE^BLRPAMGE("BLR PT CONFIRM")
Q
;
BLRCCMNU ; EP - 'Change' BLR CC DATA parameter
D CHANGEWE^BLRPAMGE("BLR CC DATA","PKG")
Q
;
; ========================= PARAMETERS DESCRIPTIONS ==========================
;
PARADESC ; EP - RPMS Lab Parameter's Description
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
D ADDTMENU^BLRGMENU("BCCDDESC^BLRPAMGE","BLR CC DATA parameter")
D ADDTMENU^BLRGMENU("BADDESC^BLRPAMGE","BLR AGE DETAIL parameter")
D ADDTMENU^BLRGMENU("BEADESC^BLRPAMGE","BLR EMERGENCY ALERT parameter")
D ADDTMENU^BLRGMENU("BCDPVCDE^BLRPAMGE","BLR COLL DT PCC VISIT CREATION parameter")
D ADDTMENU^BLRGMENU("BDOBODES^BLRPAMGE","BLR DOB ONLY parameter")
D ADDTMENU^BLRGMENU("BLRCNDES^BLRPAMGE","BLR LAB RESULTS CHANGED NOTIFY parameter")
D ADDTMENU^BLRGMENU("BQADESC^BLRPAMGE","BLR QUALITATIVE ALERT parameter")
D ADDTMENU^BLRGMENU("BDTADESC^BLRPAMGE","BLR DAYS TO ACCESSION parameter")
D ADDTMENU^BLRGMENU("BPTCDESC^BLRPAMGE","BLR PT CONFIRM parameter")
;
D MENUDRFM^BLRGMENU("RPMS Lab","Parameter's Description")
Q
;
BCCDDESC ; EP - BLR CC DATA parameter
D SHOWDESC("BLR CC DATA",8989.51)
Q
;
BADDESC ; EP - BLR AGE DETAIL parameter
D SHOWDESC("BLR AGE DETAIL",8989.51)
Q
;
BEADESC ; EP - BLR EMERGENCY ALERT parameter
D SHOWDESC("BLR EMERGENCY ALERT",8989.51)
Q
;
BCDPVCDE ; EP - BLR COLL DT PCC VISIT CREATION parameter
D SHOWDESC("BLR COLL DT PCC VISIT CREATION",8989.51)
Q
;
BDOBODES ; EP - BLR DOB ONLY parameter
D SHOWDESC("BLR DOB ONLY",8989.51)
Q
;
BLRCNDES ; EP - BLR LAB RESULTS CHANGED NOTIFY parameter
D SHOWDESC("BLR LAB RESULTS CHANGED NOTIFY",8989.51)
Q
;
BQADESC ; EP - BLR QUALITATIVE ALERT parameter
D SHOWDESC("BLR QUALITATIVE ALERT",8989.51)
Q
;
BDTADESC ; EP - BLR DAYS TO ACCESSION parameter
D SHOWDESC("BLR DAYS TO ACCESSION",8989.51)
Q
;
BPTCDESC ; EP - BLR PT CONFIRM parameter
D SHOWDESC("BLR PT CONFIRM",8989.51)
Q
;
;
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS MENU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
MGRPS ; EP - Edit RPMS Lab Mail Groups
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
D ADDTMENU^BLRGMENU("EDITMGRP^BLREMERA","Edit LAB HIGH URGENCY NOTIFICATION Mail Group")
D ADDTMENU^BLRGMENU("EDITLRCM^BLRPAMGE","Edit LAB RESULTS CHANGED Mail Group")
D ADDTMENU^BLRGMENU("EDITQALT^BLRPAMGE","Edit LAB QUALITATIVE ALERT Mail Group")
D ADDTMENU^BLRGMENU("EDITEMRN^BLRPAMGE","Edit LAB EMERENCY ROOM NOTIFICATION Mail Group")
D ADDTMENU^BLRGMENU("EDITLMI^BLRPAMGE","Edit LMI Mail Group")
D ADDTMENU^BLRGMENU("EDITEROW^BLRPAMGE","Edit BLR ERROR OVERFLOW WARNING Mail Group")
D ADDTMENU^BLRGMENU("EDITLPMR^BLRPAMGE","Edit BLR LAB PATIENT MERGE Mail Group")
D ADDTMENU^BLRGMENU("EDITLINK^BLRPAMGE","Edit BLRLINK Mail Group")
D ADDTMENU^BLRGMENU("EDITLMSG^BLRPAMGE","Edit LAB MESSAGING Mail Group")
D ADDTMENU^BLRGMENU("EDITAPW^BLRPAMGE","Edit BLR APPLICATION PLUGIN WARNING Mail Group")
D ADDTMENU^BLRGMENU("EDITLAB^BLRPAMGE","Edit LAB Mail Group")
D ADDTMENU^BLRGMENU("EDITLABT^BLRPAMGE","Edit LAB TECHS Mail Group")
;
D MENUDRFM^BLRGMENU("RPMS Lab","Mail Groups")
Q
;
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS EDITS ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
EDITLRCM ; EP - Edit the LAB RESULTS CHANGED Mail Group
D MAILGRPE^BLREMERA("LAB RESULTS CHANGED")
Q
;
EDITQALT ; EP - Edit the LAB QUALITATIVE ALERT Mail Group
D MAILGRPE^BLREMERA("LAB QUALITATIVE ALERT")
Q
;
EDITEMRN ; EP - Edit the LAB EMERENCY ROOM NOTIFICATION Mail Group
D MAILGRPE^BLREMERA("LAB EMERENCY ROOM NOTIFICATION")
Q
;
EDITLMI ; EP - Edit the LMI Mail Group
D MAILGRPE^BLREMERA("LMI")
Q
;
EDITAPW ; EP - Edit the BLR APPLICATION PLUGIN WARNING Mail Group
D MAILGRPE^BLREMERA("BLR APPLICATION PLUGIN WARNING")
Q
;
EDITEROW ; EP - Edit the BLR ERROR OVERFLOW WARNING Mail Group
D MAILGRPE^BLREMERA("BLR ERROR OVERFLOW WARNING")
Q
;
EDITLPMR ; EP - Edit the BLR LAB PATIENT MERGE Mail Group
D MAILGRPE^BLREMERA("BLR LAB PATIENT MERGE")
Q
;
EDITLINK ; EP - Edit the BLRLINK Mail Group
D MAILGRPE^BLREMERA("BLRLINK")
Q
;
EDITLMSG ; EP - Edit the LAB MESSAGING Mail Group
D MAILGRPE^BLREMERA("LAB MESSAGING")
Q
;
EDITLAB ; EP 0 Edit the LAB Mail Group
D MAILGRPE^BLREMERA("LAB")
Q
;
EDITLABT ; EP - Edit the LAB TECHS Mail Group
D MAILGRPE^BLREMERA("LAB TECHS")
Q
;
; ~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS DESCRIPTIONS ~~~~~~~~~~~~~~~~~~~~~~~~~
;
MGRPDESC ; EP - Mail Groups Descriptions
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
D ADDTMENU^BLRGMENU("LHUNDESC^BLRPAMGE","LAB HIGH URGENCY NOTIFICATION Mail Group")
D ADDTMENU^BLRGMENU("LRCDESC^BLRPAMGE","LAB RESULTS CHANGED Mail Group")
D ADDTMENU^BLRGMENU("LQADESC^BLRPAMGE","LAB QUALITATIVE ALERT Mail Group")
D ADDTMENU^BLRGMENU("LERNDESC^BLRPAMGE","LAB EMERENCY ROOM NOTIFICATION Mail Group")
D ADDTMENU^BLRGMENU("LMIDESC^BLRPAMGE","LMI Mail Group")
D ADDTMENU^BLRGMENU("BEOWDESC^BLRPAMGE","BLR ERROR OVERFLOW WARNING Mail Group")
D ADDTMENU^BLRGMENU("BLPMDESC^BLRPAMGE","BLR LAB PATIENT MERGE Mail Group")
D ADDTMENU^BLRGMENU("LINKDESC^BLRPAMGE","BLRLINK Mail Group")
D ADDTMENU^BLRGMENU("LMESDESC^BLRPAMGE","LAB MESSAGING Mail Group")
D ADDTMENU^BLRGMENU("BAPWDESC^BLRPAMGE","BLR APPLICATION PLUGIN WARNING Mail Group")
D ADDTMENU^BLRGMENU("LABDESC^BLRPAMGE","LAB Mail Group")
D ADDTMENU^BLRGMENU("LABTDESC^BLRPAMGE","LAB TECHS Mail Group")
;
D MENUDRFM^BLRGMENU("RPMS Lab","Mail Group's Description")
Q
;
LHUNDESC ; EP - LAB HIGH URGENCY NOTIFICATION Mail Group
D SHOWDESC("LAB HIGH URGENCY NOTIFICATION",3.8)
Q
;
LRCDESC ; EP - LAB RESULTS CHANGED Mail Group
D SHOWDESC("LAB RESULTS CHANGED",3.8)
Q
;
LQADESC ; EP LAB QUALITATIVE ALERT Mail Group
D SHOWDESC("LAB QUALITATIVE ALERT",3.8)
Q
;
LERNDESC ; EP - LAB EMERENCY ROOM NOTIFICATION Mail Group
D SHOWDESC("LAB EMERENCY ROOM NOTIFICATION",3.8)
Q
;
LMIDESC ; EP - LMI Mail Group
D SHOWDESC("LMI",3.8)
Q
;
BEOWDESC ; EP - BLR ERROR OVERFLOW WARNING Mail Group
D SHOWDESC("BLR ERROR OVERFLOW WARNING",3.8)
Q
;
BLPMDESC ; EP - BLR LAB PATIENT MERGE Mail Group
D SHOWDESC("BLR LAB PATIENT MERGE",3.8)
Q
;
LINKDESC ; EP - BLRLINK Mail Group
D SHOWDESC("BLRLINK",3.8)
Q
;
LMESDESC ; EP - LAB MESSAGING Mail Group
D SHOWDESC("LAB MESSAGING",3.8)
Q
;
BAPWDESC ; EP - BLR APPLICATION PLUGIN WARNING Mail Group
D SHOWDESC("BLR APPLICATION PLUGIN WARNING",3.8)
Q
;
LABDESC ; EP - LAB Mail Group
D SHOWDESC("LAB",3.8)
Q
;
LABTDESC ; EP - LAB TECHS Mail Group
D SHOWDESC("LAB TECHS",3.8)
Q
;
;
; ++++++++++++++++++++++++++++++++ Procedures ++++++++++++++++++++++++++++++++
;
CHANGEN(PARAMETER,ENTITY) ; EP - Modify Numeric Parameter
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,ENTITY,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,PARAMETER,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
S HEADER(1)="RPMS Laboratory"
S HEADER(2)=PARAMETER_" Parameter"
S HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
;
S:$G(ENTITY)="" ENTITY="PKG"
S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
;
D HEADERDT^BLRGMENU
;
D ^XBFMK
S DIR(0)="NO"
S DIR("A")=PARAMETER_" Value"
S:$L(RESULT) DIR("B")=RESULT
D ^DIR
;
I +$G(DIRUT)!($G(Y)="") D Q
. W !!,?4,"Invalid/No Entry/Quit. Routine Ends."
. D PRESSKEY^BLRGMENU(9)
;
S ANSWER=+$G(X)
;
D EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
;
I +$G(ERRS)<1 D
. S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
. W !!,?4,PARAMETER," Parameter is currently ",RESULT
. D PRESSKEY^BLRGMENU(9)
;
D:+$G(ERRS)>0 RPTERR^BLREMERA(.ERRS,PARAMETER)
;
Q
;
CHANGEWE(PARAMETER,ENTITY) ; EP - Modify Yes/No Parameter With ENTITY passed in
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,ENTITY,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,PARAMETER,U,XPARSYS,XQXFLG)
;
D SETBLRVS
;
S HEADER(1)="RPMS Laboratory"
S HEADER(2)=PARAMETER_" Parameter"
S HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
;
S:$G(ENTITY)="" ENTITY="PKG"
S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
S RESULT=$S(RESULT:"YES",RESULT=0:"NO",1:"")
;
D HEADERDT^BLRGMENU
;
D ^XBFMK
S DIR(0)="YO"
S DIR("A")=PARAMETER_" (YES/NO)"
S:$L(RESULT) DIR("B")=RESULT
D ^DIR
;
I +$G(DIRUT)!($G(Y)="") D Q
. W !!,?4,"Invalid/No Entry/Quit. Routine Ends."
. D PRESSKEY^BLRGMENU(9)
;
S ANSWER=$S($E($$UP^XLFSTR(X))="Y":"YES",1:"NO")
;
D EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
;
I +$G(ERRS)<1 D
. S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
. W !!,?4,PARAMETER," Parameter is currently ",$S(RESULT:"YES",RESULT=0:"NO",1:"")
. D PRESSKEY^BLRGMENU(9)
;
D:+$G(ERRS)>0 RPTERR^BLREMERA(.ERRS,PARAMETER)
;
Q
;
SHOWDESC(WOT,DICN) ; EP - Display Description
NEW (DICN,DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,WOT,XPARSYS,XQXFLG)
;
D SETBLRVS("SHOWDESC")
S HEADER(1)=$S(DICN=3.8:"Mail Group Description",DICN=8989.51:"Parameter Description")
S HEADER(2)=WOT
S HEADER(3)=""
D HEADERDT^BLRGMENU
D ^XBFMK
S DA=+$$FIND1^DIC(DICN,,"O",WOT)
S DIC=$$GET1^DIQ(1,DICN,"GL")
S DR=$S(DICN=3.8:2,DICN=8989.51:20)
D EN^DIQ
D PRESSKEY^BLRGMENU(4)
Q
;
;
; ******************************** Utilities *********************************
;
JUSTNEW ; EP - NEW example
NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
;
Q
;
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
K BLRVERN,BLRVERN2
;
S BLRVERN=$TR($P($T(+1),";")," ")
S:$L($G(TWO)) BLRVERN2=TWO
Q
BLRPAMGE ; IHS/MSC/MKK - BLR Parameters And Mail Group Edits ; 13-Oct-2017 14:04 ; MKK
+1 ;;5.2;IHS LABORATORY;**1041**;NOV 01, 1997;Build 23
+2 ;
EEP ; Ersatz EP
+1 DO EEP^BLRGMENU
+2 QUIT
+3 ;
EP ; EP
PEP ; EP
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 DO ADDTMENU^BLRGMENU("PARAMS^BLRPAMGE","Edit RPMS Lab Parameters ...")
+6 DO ADDTMENU^BLRGMENU("PARADESC^BLRPAMGE","RPMS Lab Parameter's Description ...")
+7 DO ADDTMENU^BLRGMENU("MGRPS^BLRPAMGE","Edit RPMS Lab Mail Groups ...")
+8 DO ADDTMENU^BLRGMENU("MGRPDESC^BLRPAMGE","Mail Group's Description ...")
+9 ;
+10 DO MENUDRFM^BLRGMENU("RPMS Lab","Parameters/Mail Groups")
+11 QUIT
+12 ;
+13 ; ============================= PARAMETERS MENU ==============================
+14 ;
PARAMS ; EP - Edit RPMS Lab Parameters
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 DO ADDTMENU^BLRGMENU("BLRCCMNU^BLRPAMGE","Edit BLR CC DATA parameter")
+6 DO ADDTMENU^BLRGMENU("DETAGE^BLRPAMGE","Edit BLR AGE DETAIL parameter")
+7 DO ADDTMENU^BLRGMENU("PEP^BLREMERA","Edit BLR EMERGENCY ALERT parameter")
+8 DO ADDTMENU^BLRGMENU("COLDTACC^BLREMERA","Edit BLR COLL DT PCC VISIT CREATION parameter")
+9 DO ADDTMENU^BLRGMENU("CDOBONLY^BLRPAMGE","Edit BLR DOB ONLY parameter")
+10 DO ADDTMENU^BLRGMENU("CHRESCNG^BLRPAMGE","Edit BLR LAB RESULTS CHANGED NOTIFY parameter")
+11 DO ADDTMENU^BLRGMENU("CHQUALRT^BLRPAMGE","Edit BLR QUALITATIVE ALERT parameter")
+12 DO ADDTMENU^BLRGMENU("CHDYSACC^BLRPAMGE","Edit BLR DAYS TO ACCESSION parameter")
+13 DO ADDTMENU^BLRGMENU("CHPTCONF^BLRPAMGE","Edit BLR PT CONFIRM parameter")
+14 ;
+15 DO MENUDRFM^BLRGMENU("RPMS Lab","Parameters")
+16 QUIT
+17 ;
+18 ; ============================= PARAMETERS EDIT ==============================
+19 ;
DETAGE ; EP - Edit 'BLR AGE DETAIL' parameter
+1 DO CHANGE^BLREMERA("BLR AGE DETAIL")
+2 QUIT
+3 ;
CDOBONLY ; EP - 'Change' BLR DOB ONLY parameter
+1 DO CHANGE^BLREMERA("BLR DOB ONLY")
+2 QUIT
+3 ;
CHRESCNG ; EP - 'Change' BLR LAB RESULTS CHANGED NOTIFY parameter
+1 DO CHANGE^BLREMERA("BLR LAB RESULTS CHANGED NOTIFY")
+2 QUIT
+3 ;
CHQUALRT ; EP - 'Change' BLR QUALITATIVE ALERT parameter
+1 DO CHANGE^BLREMERA("BLR QUALITATIVE ALERT")
+2 QUIT
+3 ;
CHDYSACC ; EP - 'Change' BLR DAYS TO ACCESSION parameter
+1 DO CHANGEN^BLRPAMGE("BLR DAYS TO ACCESSION","SYS")
+2 QUIT
+3 ;
CHPTCONF ; EP - 'Change' BLR PT CONFIRM parameter
+1 DO CHANGEWE^BLRPAMGE("BLR PT CONFIRM")
+2 QUIT
+3 ;
BLRCCMNU ; EP - 'Change' BLR CC DATA parameter
+1 DO CHANGEWE^BLRPAMGE("BLR CC DATA","PKG")
+2 QUIT
+3 ;
+4 ; ========================= PARAMETERS DESCRIPTIONS ==========================
+5 ;
PARADESC ; EP - RPMS Lab Parameter's Description
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 DO ADDTMENU^BLRGMENU("BCCDDESC^BLRPAMGE","BLR CC DATA parameter")
+6 DO ADDTMENU^BLRGMENU("BADDESC^BLRPAMGE","BLR AGE DETAIL parameter")
+7 DO ADDTMENU^BLRGMENU("BEADESC^BLRPAMGE","BLR EMERGENCY ALERT parameter")
+8 DO ADDTMENU^BLRGMENU("BCDPVCDE^BLRPAMGE","BLR COLL DT PCC VISIT CREATION parameter")
+9 DO ADDTMENU^BLRGMENU("BDOBODES^BLRPAMGE","BLR DOB ONLY parameter")
+10 DO ADDTMENU^BLRGMENU("BLRCNDES^BLRPAMGE","BLR LAB RESULTS CHANGED NOTIFY parameter")
+11 DO ADDTMENU^BLRGMENU("BQADESC^BLRPAMGE","BLR QUALITATIVE ALERT parameter")
+12 DO ADDTMENU^BLRGMENU("BDTADESC^BLRPAMGE","BLR DAYS TO ACCESSION parameter")
+13 DO ADDTMENU^BLRGMENU("BPTCDESC^BLRPAMGE","BLR PT CONFIRM parameter")
+14 ;
+15 DO MENUDRFM^BLRGMENU("RPMS Lab","Parameter's Description")
+16 QUIT
+17 ;
BCCDDESC ; EP - BLR CC DATA parameter
+1 DO SHOWDESC("BLR CC DATA",8989.51)
+2 QUIT
+3 ;
BADDESC ; EP - BLR AGE DETAIL parameter
+1 DO SHOWDESC("BLR AGE DETAIL",8989.51)
+2 QUIT
+3 ;
BEADESC ; EP - BLR EMERGENCY ALERT parameter
+1 DO SHOWDESC("BLR EMERGENCY ALERT",8989.51)
+2 QUIT
+3 ;
BCDPVCDE ; EP - BLR COLL DT PCC VISIT CREATION parameter
+1 DO SHOWDESC("BLR COLL DT PCC VISIT CREATION",8989.51)
+2 QUIT
+3 ;
BDOBODES ; EP - BLR DOB ONLY parameter
+1 DO SHOWDESC("BLR DOB ONLY",8989.51)
+2 QUIT
+3 ;
BLRCNDES ; EP - BLR LAB RESULTS CHANGED NOTIFY parameter
+1 DO SHOWDESC("BLR LAB RESULTS CHANGED NOTIFY",8989.51)
+2 QUIT
+3 ;
BQADESC ; EP - BLR QUALITATIVE ALERT parameter
+1 DO SHOWDESC("BLR QUALITATIVE ALERT",8989.51)
+2 QUIT
+3 ;
BDTADESC ; EP - BLR DAYS TO ACCESSION parameter
+1 DO SHOWDESC("BLR DAYS TO ACCESSION",8989.51)
+2 QUIT
+3 ;
BPTCDESC ; EP - BLR PT CONFIRM parameter
+1 DO SHOWDESC("BLR PT CONFIRM",8989.51)
+2 QUIT
+3 ;
+4 ;
+5 ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS MENU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+6 ;
MGRPS ; EP - Edit RPMS Lab Mail Groups
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 DO ADDTMENU^BLRGMENU("EDITMGRP^BLREMERA","Edit LAB HIGH URGENCY NOTIFICATION Mail Group")
+6 DO ADDTMENU^BLRGMENU("EDITLRCM^BLRPAMGE","Edit LAB RESULTS CHANGED Mail Group")
+7 DO ADDTMENU^BLRGMENU("EDITQALT^BLRPAMGE","Edit LAB QUALITATIVE ALERT Mail Group")
+8 DO ADDTMENU^BLRGMENU("EDITEMRN^BLRPAMGE","Edit LAB EMERENCY ROOM NOTIFICATION Mail Group")
+9 DO ADDTMENU^BLRGMENU("EDITLMI^BLRPAMGE","Edit LMI Mail Group")
+10 DO ADDTMENU^BLRGMENU("EDITEROW^BLRPAMGE","Edit BLR ERROR OVERFLOW WARNING Mail Group")
+11 DO ADDTMENU^BLRGMENU("EDITLPMR^BLRPAMGE","Edit BLR LAB PATIENT MERGE Mail Group")
+12 DO ADDTMENU^BLRGMENU("EDITLINK^BLRPAMGE","Edit BLRLINK Mail Group")
+13 DO ADDTMENU^BLRGMENU("EDITLMSG^BLRPAMGE","Edit LAB MESSAGING Mail Group")
+14 DO ADDTMENU^BLRGMENU("EDITAPW^BLRPAMGE","Edit BLR APPLICATION PLUGIN WARNING Mail Group")
+15 DO ADDTMENU^BLRGMENU("EDITLAB^BLRPAMGE","Edit LAB Mail Group")
+16 DO ADDTMENU^BLRGMENU("EDITLABT^BLRPAMGE","Edit LAB TECHS Mail Group")
+17 ;
+18 DO MENUDRFM^BLRGMENU("RPMS Lab","Mail Groups")
+19 QUIT
+20 ;
+21 ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS EDITS ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+22 ;
EDITLRCM ; EP - Edit the LAB RESULTS CHANGED Mail Group
+1 DO MAILGRPE^BLREMERA("LAB RESULTS CHANGED")
+2 QUIT
+3 ;
EDITQALT ; EP - Edit the LAB QUALITATIVE ALERT Mail Group
+1 DO MAILGRPE^BLREMERA("LAB QUALITATIVE ALERT")
+2 QUIT
+3 ;
EDITEMRN ; EP - Edit the LAB EMERENCY ROOM NOTIFICATION Mail Group
+1 DO MAILGRPE^BLREMERA("LAB EMERENCY ROOM NOTIFICATION")
+2 QUIT
+3 ;
EDITLMI ; EP - Edit the LMI Mail Group
+1 DO MAILGRPE^BLREMERA("LMI")
+2 QUIT
+3 ;
EDITAPW ; EP - Edit the BLR APPLICATION PLUGIN WARNING Mail Group
+1 DO MAILGRPE^BLREMERA("BLR APPLICATION PLUGIN WARNING")
+2 QUIT
+3 ;
EDITEROW ; EP - Edit the BLR ERROR OVERFLOW WARNING Mail Group
+1 DO MAILGRPE^BLREMERA("BLR ERROR OVERFLOW WARNING")
+2 QUIT
+3 ;
EDITLPMR ; EP - Edit the BLR LAB PATIENT MERGE Mail Group
+1 DO MAILGRPE^BLREMERA("BLR LAB PATIENT MERGE")
+2 QUIT
+3 ;
EDITLINK ; EP - Edit the BLRLINK Mail Group
+1 DO MAILGRPE^BLREMERA("BLRLINK")
+2 QUIT
+3 ;
EDITLMSG ; EP - Edit the LAB MESSAGING Mail Group
+1 DO MAILGRPE^BLREMERA("LAB MESSAGING")
+2 QUIT
+3 ;
EDITLAB ; EP 0 Edit the LAB Mail Group
+1 DO MAILGRPE^BLREMERA("LAB")
+2 QUIT
+3 ;
EDITLABT ; EP - Edit the LAB TECHS Mail Group
+1 DO MAILGRPE^BLREMERA("LAB TECHS")
+2 QUIT
+3 ;
+4 ; ~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS DESCRIPTIONS ~~~~~~~~~~~~~~~~~~~~~~~~~
+5 ;
MGRPDESC ; EP - Mail Groups Descriptions
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 DO ADDTMENU^BLRGMENU("LHUNDESC^BLRPAMGE","LAB HIGH URGENCY NOTIFICATION Mail Group")
+4 DO ADDTMENU^BLRGMENU("LRCDESC^BLRPAMGE","LAB RESULTS CHANGED Mail Group")
+5 DO ADDTMENU^BLRGMENU("LQADESC^BLRPAMGE","LAB QUALITATIVE ALERT Mail Group")
+6 DO ADDTMENU^BLRGMENU("LERNDESC^BLRPAMGE","LAB EMERENCY ROOM NOTIFICATION Mail Group")
+7 DO ADDTMENU^BLRGMENU("LMIDESC^BLRPAMGE","LMI Mail Group")
+8 DO ADDTMENU^BLRGMENU("BEOWDESC^BLRPAMGE","BLR ERROR OVERFLOW WARNING Mail Group")
+9 DO ADDTMENU^BLRGMENU("BLPMDESC^BLRPAMGE","BLR LAB PATIENT MERGE Mail Group")
+10 DO ADDTMENU^BLRGMENU("LINKDESC^BLRPAMGE","BLRLINK Mail Group")
+11 DO ADDTMENU^BLRGMENU("LMESDESC^BLRPAMGE","LAB MESSAGING Mail Group")
+12 DO ADDTMENU^BLRGMENU("BAPWDESC^BLRPAMGE","BLR APPLICATION PLUGIN WARNING Mail Group")
+13 DO ADDTMENU^BLRGMENU("LABDESC^BLRPAMGE","LAB Mail Group")
+14 DO ADDTMENU^BLRGMENU("LABTDESC^BLRPAMGE","LAB TECHS Mail Group")
+15 ;
+16 DO MENUDRFM^BLRGMENU("RPMS Lab","Mail Group's Description")
+17 QUIT
+18 ;
LHUNDESC ; EP - LAB HIGH URGENCY NOTIFICATION Mail Group
+1 DO SHOWDESC("LAB HIGH URGENCY NOTIFICATION",3.8)
+2 QUIT
+3 ;
LRCDESC ; EP - LAB RESULTS CHANGED Mail Group
+1 DO SHOWDESC("LAB RESULTS CHANGED",3.8)
+2 QUIT
+3 ;
LQADESC ; EP LAB QUALITATIVE ALERT Mail Group
+1 DO SHOWDESC("LAB QUALITATIVE ALERT",3.8)
+2 QUIT
+3 ;
LERNDESC ; EP - LAB EMERENCY ROOM NOTIFICATION Mail Group
+1 DO SHOWDESC("LAB EMERENCY ROOM NOTIFICATION",3.8)
+2 QUIT
+3 ;
LMIDESC ; EP - LMI Mail Group
+1 DO SHOWDESC("LMI",3.8)
+2 QUIT
+3 ;
BEOWDESC ; EP - BLR ERROR OVERFLOW WARNING Mail Group
+1 DO SHOWDESC("BLR ERROR OVERFLOW WARNING",3.8)
+2 QUIT
+3 ;
BLPMDESC ; EP - BLR LAB PATIENT MERGE Mail Group
+1 DO SHOWDESC("BLR LAB PATIENT MERGE",3.8)
+2 QUIT
+3 ;
LINKDESC ; EP - BLRLINK Mail Group
+1 DO SHOWDESC("BLRLINK",3.8)
+2 QUIT
+3 ;
LMESDESC ; EP - LAB MESSAGING Mail Group
+1 DO SHOWDESC("LAB MESSAGING",3.8)
+2 QUIT
+3 ;
BAPWDESC ; EP - BLR APPLICATION PLUGIN WARNING Mail Group
+1 DO SHOWDESC("BLR APPLICATION PLUGIN WARNING",3.8)
+2 QUIT
+3 ;
LABDESC ; EP - LAB Mail Group
+1 DO SHOWDESC("LAB",3.8)
+2 QUIT
+3 ;
LABTDESC ; EP - LAB TECHS Mail Group
+1 DO SHOWDESC("LAB TECHS",3.8)
+2 QUIT
+3 ;
+4 ;
+5 ; ++++++++++++++++++++++++++++++++ Procedures ++++++++++++++++++++++++++++++++
+6 ;
CHANGEN(PARAMETER,ENTITY) ; EP - Modify Numeric Parameter
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,ENTITY,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,PARAMETER,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 SET HEADER(1)="RPMS Laboratory"
+6 SET HEADER(2)=PARAMETER_" Parameter"
+7 SET HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
+8 ;
+9 IF $GET(ENTITY)=""
SET ENTITY="PKG"
+10 SET RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
+11 ;
+12 DO HEADERDT^BLRGMENU
+13 ;
+14 DO ^XBFMK
+15 SET DIR(0)="NO"
+16 SET DIR("A")=PARAMETER_" Value"
+17 IF $LENGTH(RESULT)
SET DIR("B")=RESULT
+18 DO ^DIR
+19 ;
+20 IF +$GET(DIRUT)!($GET(Y)="")
Begin DoDot:1
+21 WRITE !!,?4,"Invalid/No Entry/Quit. Routine Ends."
+22 DO PRESSKEY^BLRGMENU(9)
End DoDot:1
QUIT
+23 ;
+24 SET ANSWER=+$GET(X)
+25 ;
+26 DO EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
+27 ;
+28 IF +$GET(ERRS)<1
Begin DoDot:1
+29 SET RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
+30 WRITE !!,?4,PARAMETER," Parameter is currently ",RESULT
+31 DO PRESSKEY^BLRGMENU(9)
End DoDot:1
+32 ;
+33 IF +$GET(ERRS)>0
DO RPTERR^BLREMERA(.ERRS,PARAMETER)
+34 ;
+35 QUIT
+36 ;
CHANGEWE(PARAMETER,ENTITY) ; EP - Modify Yes/No Parameter With ENTITY passed in
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,ENTITY,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,PARAMETER,U,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS
+4 ;
+5 SET HEADER(1)="RPMS Laboratory"
+6 SET HEADER(2)=PARAMETER_" Parameter"
+7 SET HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
+8 ;
+9 IF $GET(ENTITY)=""
SET ENTITY="PKG"
+10 SET RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
+11 SET RESULT=$SELECT(RESULT:"YES",RESULT=0:"NO",1:"")
+12 ;
+13 DO HEADERDT^BLRGMENU
+14 ;
+15 DO ^XBFMK
+16 SET DIR(0)="YO"
+17 SET DIR("A")=PARAMETER_" (YES/NO)"
+18 IF $LENGTH(RESULT)
SET DIR("B")=RESULT
+19 DO ^DIR
+20 ;
+21 IF +$GET(DIRUT)!($GET(Y)="")
Begin DoDot:1
+22 WRITE !!,?4,"Invalid/No Entry/Quit. Routine Ends."
+23 DO PRESSKEY^BLRGMENU(9)
End DoDot:1
QUIT
+24 ;
+25 SET ANSWER=$SELECT($EXTRACT($$UP^XLFSTR(X))="Y":"YES",1:"NO")
+26 ;
+27 DO EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
+28 ;
+29 IF +$GET(ERRS)<1
Begin DoDot:1
+30 SET RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
+31 WRITE !!,?4,PARAMETER," Parameter is currently ",$SELECT(RESULT:"YES",RESULT=0:"NO",1:"")
+32 DO PRESSKEY^BLRGMENU(9)
End DoDot:1
+33 ;
+34 IF +$GET(ERRS)>0
DO RPTERR^BLREMERA(.ERRS,PARAMETER)
+35 ;
+36 QUIT
+37 ;
SHOWDESC(WOT,DICN) ; EP - Display Description
+1 NEW (DICN,DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,WOT,XPARSYS,XQXFLG)
+2 ;
+3 DO SETBLRVS("SHOWDESC")
+4 SET HEADER(1)=$SELECT(DICN=3.8:"Mail Group Description",DICN=8989.51:"Parameter Description")
+5 SET HEADER(2)=WOT
+6 SET HEADER(3)=""
+7 DO HEADERDT^BLRGMENU
+8 DO ^XBFMK
+9 SET DA=+$$FIND1^DIC(DICN,,"O",WOT)
+10 SET DIC=$$GET1^DIQ(1,DICN,"GL")
+11 SET DR=$SELECT(DICN=3.8:2,DICN=8989.51:20)
+12 DO EN^DIQ
+13 DO PRESSKEY^BLRGMENU(4)
+14 QUIT
+15 ;
+16 ;
+17 ; ******************************** Utilities *********************************
+18 ;
JUSTNEW ; EP - NEW example
+1 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
+2 ;
+3 QUIT
+4 ;
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
+1 KILL BLRVERN,BLRVERN2
+2 ;
+3 SET BLRVERN=$TRANSLATE($PIECE($TEXT(+1),";")," ")
+4 IF $LENGTH($GET(TWO))
SET BLRVERN2=TWO
+5 QUIT
