Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BLRPAMGE

BLRPAMGE.m

Go to the documentation of this file. 
  1. 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
  1.  ;
  1. EEP ; Ersatz EP
  1.  D EEP^BLRGMENU
  1.  Q
  1.  ;
  1. EP ; EP
  1. PEP ; EP
  1.  NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  D ADDTMENU^BLRGMENU("PARAMS^BLRPAMGE","Edit RPMS Lab Parameters ...")
  1.  D ADDTMENU^BLRGMENU("PARADESC^BLRPAMGE","RPMS Lab Parameter's Description ...")
  1.  D ADDTMENU^BLRGMENU("MGRPS^BLRPAMGE","Edit RPMS Lab Mail Groups ...")
  1.  D ADDTMENU^BLRGMENU("MGRPDESC^BLRPAMGE","Mail Group's Description ...")
  1.  ;
  1.  D MENUDRFM^BLRGMENU("RPMS Lab","Parameters/Mail Groups")
  1.  Q
  1.  ;
  1.  ; ============================= PARAMETERS MENU ==============================
  1.  ; 
  1. 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)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  D ADDTMENU^BLRGMENU("BLRCCMNU^BLRPAMGE","Edit BLR CC DATA parameter")
  1.  D ADDTMENU^BLRGMENU("DETAGE^BLRPAMGE","Edit BLR AGE DETAIL parameter")
  1.  D ADDTMENU^BLRGMENU("PEP^BLREMERA","Edit BLR EMERGENCY ALERT parameter")
  1.  D ADDTMENU^BLRGMENU("COLDTACC^BLREMERA","Edit BLR COLL DT PCC VISIT CREATION parameter")
  1.  D ADDTMENU^BLRGMENU("CDOBONLY^BLRPAMGE","Edit BLR DOB ONLY parameter")
  1.  D ADDTMENU^BLRGMENU("CHRESCNG^BLRPAMGE","Edit BLR LAB RESULTS CHANGED NOTIFY parameter")
  1.  D ADDTMENU^BLRGMENU("CHQUALRT^BLRPAMGE","Edit BLR QUALITATIVE ALERT parameter")
  1.  D ADDTMENU^BLRGMENU("CHDYSACC^BLRPAMGE","Edit BLR DAYS TO ACCESSION parameter")
  1.  D ADDTMENU^BLRGMENU("CHPTCONF^BLRPAMGE","Edit BLR PT CONFIRM parameter")
  1.  ;
  1.  D MENUDRFM^BLRGMENU("RPMS Lab","Parameters")
  1.  Q
  1.  ;
  1.  ; ============================= PARAMETERS EDIT ==============================
  1.  ; 
  1. DETAGE ; EP - Edit 'BLR AGE DETAIL' parameter
  1.  D CHANGE^BLREMERA("BLR AGE DETAIL")
  1.  Q
  1.  ;
  1. CDOBONLY ; EP - 'Change' BLR DOB ONLY parameter
  1.  D CHANGE^BLREMERA("BLR DOB ONLY")
  1.  Q
  1.  ;
  1. CHRESCNG ; EP - 'Change' BLR LAB RESULTS CHANGED NOTIFY parameter
  1.  D CHANGE^BLREMERA("BLR LAB RESULTS CHANGED NOTIFY")
  1.  Q
  1.  ;
  1. CHQUALRT ; EP - 'Change' BLR QUALITATIVE ALERT parameter
  1.  D CHANGE^BLREMERA("BLR QUALITATIVE ALERT")
  1.  Q
  1.  ;
  1. CHDYSACC ; EP - 'Change' BLR DAYS TO ACCESSION parameter
  1.  D CHANGEN^BLRPAMGE("BLR DAYS TO ACCESSION","SYS")
  1.  Q
  1.  ;
  1. CHPTCONF ; EP - 'Change' BLR PT CONFIRM parameter
  1.  D CHANGEWE^BLRPAMGE("BLR PT CONFIRM")
  1.  Q
  1.  ;
  1. BLRCCMNU ; EP - 'Change' BLR CC DATA parameter
  1.  D CHANGEWE^BLRPAMGE("BLR CC DATA","PKG")
  1.  Q
  1.  ;
  1.  ; ========================= PARAMETERS DESCRIPTIONS ==========================
  1.  ;
  1. 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)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  D ADDTMENU^BLRGMENU("BCCDDESC^BLRPAMGE","BLR CC DATA parameter")
  1.  D ADDTMENU^BLRGMENU("BADDESC^BLRPAMGE","BLR AGE DETAIL parameter")
  1.  D ADDTMENU^BLRGMENU("BEADESC^BLRPAMGE","BLR EMERGENCY ALERT parameter")
  1.  D ADDTMENU^BLRGMENU("BCDPVCDE^BLRPAMGE","BLR COLL DT PCC VISIT CREATION parameter")
  1.  D ADDTMENU^BLRGMENU("BDOBODES^BLRPAMGE","BLR DOB ONLY parameter")
  1.  D ADDTMENU^BLRGMENU("BLRCNDES^BLRPAMGE","BLR LAB RESULTS CHANGED NOTIFY parameter")
  1.  D ADDTMENU^BLRGMENU("BQADESC^BLRPAMGE","BLR QUALITATIVE ALERT parameter")
  1.  D ADDTMENU^BLRGMENU("BDTADESC^BLRPAMGE","BLR DAYS TO ACCESSION parameter")
  1.  D ADDTMENU^BLRGMENU("BPTCDESC^BLRPAMGE","BLR PT CONFIRM parameter")
  1.  ;
  1.  D MENUDRFM^BLRGMENU("RPMS Lab","Parameter's Description")
  1.  Q
  1.  ;
  1. BCCDDESC ; EP - BLR CC DATA parameter
  1.  D SHOWDESC("BLR CC DATA",8989.51)
  1.  Q
  1.  ;
  1. BADDESC ; EP - BLR AGE DETAIL parameter
  1.  D SHOWDESC("BLR AGE DETAIL",8989.51)
  1.  Q
  1.  ;
  1. BEADESC ; EP - BLR EMERGENCY ALERT parameter
  1.  D SHOWDESC("BLR EMERGENCY ALERT",8989.51)
  1.  Q
  1.  ;
  1. BCDPVCDE ; EP - BLR COLL DT PCC VISIT CREATION parameter
  1.  D SHOWDESC("BLR COLL DT PCC VISIT CREATION",8989.51)
  1.  Q
  1.  ;
  1. BDOBODES ; EP - BLR DOB ONLY parameter
  1.  D SHOWDESC("BLR DOB ONLY",8989.51)
  1.  Q
  1.  ;
  1. BLRCNDES ; EP - BLR LAB RESULTS CHANGED NOTIFY parameter
  1.  D SHOWDESC("BLR LAB RESULTS CHANGED NOTIFY",8989.51)
  1.  Q
  1.  ;
  1. BQADESC ; EP - BLR QUALITATIVE ALERT parameter
  1.  D SHOWDESC("BLR QUALITATIVE ALERT",8989.51)
  1.  Q
  1.  ;
  1. BDTADESC ; EP - BLR DAYS TO ACCESSION parameter
  1.  D SHOWDESC("BLR DAYS TO ACCESSION",8989.51)
  1.  Q
  1.  ;
  1. BPTCDESC ; EP - BLR PT CONFIRM parameter
  1.  D SHOWDESC("BLR PT CONFIRM",8989.51)
  1.  Q
  1.  ;
  1.  ;
  1.  ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS MENU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1.  ;
  1. 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)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  D ADDTMENU^BLRGMENU("EDITMGRP^BLREMERA","Edit LAB HIGH URGENCY NOTIFICATION Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLRCM^BLRPAMGE","Edit LAB RESULTS CHANGED Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITQALT^BLRPAMGE","Edit LAB QUALITATIVE ALERT Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITEMRN^BLRPAMGE","Edit LAB EMERENCY ROOM NOTIFICATION Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLMI^BLRPAMGE","Edit LMI Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITEROW^BLRPAMGE","Edit BLR ERROR OVERFLOW WARNING Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLPMR^BLRPAMGE","Edit BLR LAB PATIENT MERGE Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLINK^BLRPAMGE","Edit BLRLINK Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLMSG^BLRPAMGE","Edit LAB MESSAGING Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITAPW^BLRPAMGE","Edit BLR APPLICATION PLUGIN WARNING Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLAB^BLRPAMGE","Edit LAB Mail Group")
  1.  D ADDTMENU^BLRGMENU("EDITLABT^BLRPAMGE","Edit LAB TECHS Mail Group")
  1.  ;
  1.  D MENUDRFM^BLRGMENU("RPMS Lab","Mail Groups")
  1.  Q
  1.  ;
  1.  ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS EDITS ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  1.  ;
  1. EDITLRCM ; EP - Edit the LAB RESULTS CHANGED Mail Group
  1.  D MAILGRPE^BLREMERA("LAB RESULTS CHANGED")
  1.  Q
  1.  ;
  1. EDITQALT ; EP - Edit the LAB QUALITATIVE ALERT Mail Group
  1.  D MAILGRPE^BLREMERA("LAB QUALITATIVE ALERT")
  1.  Q
  1.  ;
  1. EDITEMRN ; EP - Edit the LAB EMERENCY ROOM NOTIFICATION Mail Group
  1.  D MAILGRPE^BLREMERA("LAB EMERENCY ROOM NOTIFICATION")
  1.  Q
  1.  ;
  1. EDITLMI ; EP - Edit the LMI Mail Group
  1.  D MAILGRPE^BLREMERA("LMI")
  1.  Q
  1.  ;
  1. EDITAPW ; EP - Edit the BLR APPLICATION PLUGIN WARNING Mail Group
  1.  D MAILGRPE^BLREMERA("BLR APPLICATION PLUGIN WARNING")
  1.  Q
  1.  ;
  1. EDITEROW ; EP - Edit the BLR ERROR OVERFLOW WARNING Mail Group
  1.  D MAILGRPE^BLREMERA("BLR ERROR OVERFLOW WARNING")
  1.  Q
  1.  ;
  1. EDITLPMR ; EP - Edit the BLR LAB PATIENT MERGE Mail Group
  1.  D MAILGRPE^BLREMERA("BLR LAB PATIENT MERGE")
  1.  Q
  1.  ;
  1.  D MAILGRPE^BLREMERA("BLRLINK")
  1.  Q
  1.  ;
  1. EDITLMSG ; EP - Edit the LAB MESSAGING Mail Group
  1.  D MAILGRPE^BLREMERA("LAB MESSAGING")
  1.  Q
  1.  ;
  1. EDITLAB ; EP 0 Edit the LAB Mail Group
  1.  D MAILGRPE^BLREMERA("LAB")
  1.  Q
  1.  ;
  1. EDITLABT ; EP - Edit the LAB TECHS Mail Group
  1.  D MAILGRPE^BLREMERA("LAB TECHS")
  1.  Q
  1.  ;
  1.  ; ~~~~~~~~~~~~~~~~~~~~~~~~~ MAIL GROUPS DESCRIPTIONS ~~~~~~~~~~~~~~~~~~~~~~~~~
  1.  ;
  1. 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)
  1.  ;
  1.  D ADDTMENU^BLRGMENU("LHUNDESC^BLRPAMGE","LAB HIGH URGENCY NOTIFICATION Mail Group")
  1.  D ADDTMENU^BLRGMENU("LRCDESC^BLRPAMGE","LAB RESULTS CHANGED Mail Group")
  1.  D ADDTMENU^BLRGMENU("LQADESC^BLRPAMGE","LAB QUALITATIVE ALERT Mail Group")
  1.  D ADDTMENU^BLRGMENU("LERNDESC^BLRPAMGE","LAB EMERENCY ROOM NOTIFICATION Mail Group")
  1.  D ADDTMENU^BLRGMENU("LMIDESC^BLRPAMGE","LMI Mail Group")
  1.  D ADDTMENU^BLRGMENU("BEOWDESC^BLRPAMGE","BLR ERROR OVERFLOW WARNING Mail Group")
  1.  D ADDTMENU^BLRGMENU("BLPMDESC^BLRPAMGE","BLR LAB PATIENT MERGE Mail Group")
  1.  D ADDTMENU^BLRGMENU("LINKDESC^BLRPAMGE","BLRLINK Mail Group")
  1.  D ADDTMENU^BLRGMENU("LMESDESC^BLRPAMGE","LAB MESSAGING Mail Group")
  1.  D ADDTMENU^BLRGMENU("BAPWDESC^BLRPAMGE","BLR APPLICATION PLUGIN WARNING Mail Group")
  1.  D ADDTMENU^BLRGMENU("LABDESC^BLRPAMGE","LAB Mail Group")
  1.  D ADDTMENU^BLRGMENU("LABTDESC^BLRPAMGE","LAB TECHS Mail Group")
  1.  ;
  1.  D MENUDRFM^BLRGMENU("RPMS Lab","Mail Group's Description")
  1.  Q
  1.  ;
  1. LHUNDESC ; EP - LAB HIGH URGENCY NOTIFICATION Mail Group
  1.  D SHOWDESC("LAB HIGH URGENCY NOTIFICATION",3.8)
  1.  Q
  1.  ;
  1. LRCDESC ; EP - LAB RESULTS CHANGED Mail Group
  1.  D SHOWDESC("LAB RESULTS CHANGED",3.8)
  1.  Q
  1.  ;
  1. LQADESC ; EP LAB QUALITATIVE ALERT Mail Group
  1.  D SHOWDESC("LAB QUALITATIVE ALERT",3.8)
  1.  Q
  1.  ;
  1. LERNDESC ; EP - LAB EMERENCY ROOM NOTIFICATION Mail Group
  1.  D SHOWDESC("LAB EMERENCY ROOM NOTIFICATION",3.8)
  1.  Q
  1.  ;
  1. LMIDESC ; EP - LMI Mail Group
  1.  D SHOWDESC("LMI",3.8)
  1.  Q
  1.  ;
  1. BEOWDESC ; EP - BLR ERROR OVERFLOW WARNING Mail Group
  1.  D SHOWDESC("BLR ERROR OVERFLOW WARNING",3.8)
  1.  Q
  1.  ;
  1. BLPMDESC ; EP - BLR LAB PATIENT MERGE Mail Group
  1.  D SHOWDESC("BLR LAB PATIENT MERGE",3.8)
  1.  Q
  1.  ;
  1. LINKDESC ; EP - BLRLINK Mail Group
  1.  D SHOWDESC("BLRLINK",3.8)
  1.  Q
  1.  ;
  1. LMESDESC ; EP - LAB MESSAGING Mail Group
  1.  D SHOWDESC("LAB MESSAGING",3.8)
  1.  Q
  1.  ;
  1. BAPWDESC ; EP - BLR APPLICATION PLUGIN WARNING Mail Group
  1.  D SHOWDESC("BLR APPLICATION PLUGIN WARNING",3.8)
  1.  Q
  1.  ;
  1. LABDESC ; EP - LAB Mail Group
  1.  D SHOWDESC("LAB",3.8)
  1.  Q
  1.  ;
  1. LABTDESC ; EP - LAB TECHS Mail Group
  1.  D SHOWDESC("LAB TECHS",3.8)
  1.  Q
  1.  ;
  1.  ;
  1.  ; ++++++++++++++++++++++++++++++++ Procedures ++++++++++++++++++++++++++++++++
  1.  ;
  1. 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)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  S HEADER(1)="RPMS Laboratory"
  1.  S HEADER(2)=PARAMETER_" Parameter"
  1.  S HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
  1.  ;
  1.  S:$G(ENTITY)="" ENTITY="PKG"
  1.  S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
  1.  ;
  1.  D HEADERDT^BLRGMENU
  1.  ;
  1.  D ^XBFMK
  1.  S DIR(0)="NO"
  1.  S DIR("A")=PARAMETER_" Value"
  1.  S:$L(RESULT) DIR("B")=RESULT
  1.  D ^DIR
  1.  ;
  1.  I +$G(DIRUT)!($G(Y)="") D  Q
  1.  . W !!,?4,"Invalid/No Entry/Quit. Routine Ends."
  1.  . D PRESSKEY^BLRGMENU(9)
  1.  ;
  1.  S ANSWER=+$G(X)
  1.  ;
  1.  D EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
  1.  ;
  1.  I +$G(ERRS)<1 D
  1.  . S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
  1.  . W !!,?4,PARAMETER," Parameter is currently ",RESULT
  1.  . D PRESSKEY^BLRGMENU(9)
  1.  ;
  1.  D:+$G(ERRS)>0 RPTERR^BLREMERA(.ERRS,PARAMETER)
  1.  ;
  1.  Q
  1.  ;
  1. 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)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  S HEADER(1)="RPMS Laboratory"
  1.  S HEADER(2)=PARAMETER_" Parameter"
  1.  S HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)
  1.  ;
  1.  S:$G(ENTITY)="" ENTITY="PKG"
  1.  S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
  1.  S RESULT=$S(RESULT:"YES",RESULT=0:"NO",1:"")
  1.  ;
  1.  D HEADERDT^BLRGMENU
  1.  ;
  1.  D ^XBFMK
  1.  S DIR(0)="YO"
  1.  S DIR("A")=PARAMETER_" (YES/NO)"
  1.  S:$L(RESULT) DIR("B")=RESULT
  1.  D ^DIR
  1.  ;
  1.  I +$G(DIRUT)!($G(Y)="") D  Q
  1.  . W !!,?4,"Invalid/No Entry/Quit. Routine Ends."
  1.  . D PRESSKEY^BLRGMENU(9)
  1.  ;
  1.  S ANSWER=$S($E($$UP^XLFSTR(X))="Y":"YES",1:"NO")
  1.  ;
  1.  D EN^XPAR(ENTITY,PARAMETER,,ANSWER,.ERRS)
  1.  ;
  1.  I +$G(ERRS)<1 D
  1.  . S RESULT=$$GET^XPAR(ENTITY,PARAMETER,1,"Q")
  1.  . W !!,?4,PARAMETER," Parameter is currently ",$S(RESULT:"YES",RESULT=0:"NO",1:"")
  1.  . D PRESSKEY^BLRGMENU(9)
  1.  ;
  1.  D:+$G(ERRS)>0 RPTERR^BLREMERA(.ERRS,PARAMETER)
  1.  ;
  1.  Q
  1.  ;
  1. 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)
  1.  ;
  1.  D SETBLRVS("SHOWDESC")
  1.  S HEADER(1)=$S(DICN=3.8:"Mail Group Description",DICN=8989.51:"Parameter Description")
  1.  S HEADER(2)=WOT
  1.  S HEADER(3)=""
  1.  D HEADERDT^BLRGMENU
  1.  D ^XBFMK
  1.  S DA=+$$FIND1^DIC(DICN,,"O",WOT)
  1.  S DIC=$$GET1^DIQ(1,DICN,"GL")
  1.  S DR=$S(DICN=3.8:2,DICN=8989.51:20)
  1.  D EN^DIQ
  1.  D PRESSKEY^BLRGMENU(4)
  1.  Q
  1.  ;
  1.  ;
  1.  ; ******************************** Utilities *********************************
  1.  ;
  1. JUSTNEW ; EP - NEW example
  1.  NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
  1.  ;
  1.  Q
  1.  ;
  1. SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
  1.  K BLRVERN,BLRVERN2
  1.  ;
  1.  S BLRVERN=$TR($P($T(+1),";")," ")
  1.  S:$L($G(TWO)) BLRVERN2=TWO
  1.  Q