ORY406 ;SLC/WAT - POST INSTALL ;01/27/15 12:57
;;3.0;ORDER ENTRY/RESULTS REPORTING;**406**;Dec 17, 1997;Build 13
;ICR - B/MES^XPDUTL - 10141, EN^XPAR - 2263
;;GMTS*2.7*111 modifies health summary components for ICD-10 to expand the maximum ICD code/occurrence from 10 to 25.
;;This patch sets ORWRP TIME/OCC LIMITS INDV at the PACKAGE level so that OE/RR reports that use the same components
;;will also display 25 ICD-10 codes.
;
POST ; post-init
N ORMSG,ORERRFLG
S ORMSG(1)="This patch will establish a default value at the PACKAGE level"
S ORMSG(2)="for the ORWRP TIME/OCC LIMITS INDV parameter."
S ORMSG(2.5)="The value shall be: T-7;T;25"
S ORMSG(3)="These reports in OE/RR REPORT (#101.24) are affected:"
S ORMSG(4)="ORRPW ADT ADM DC"
S ORMSG(5)="ORRPW ADT DC DIAG"
S ORMSG(6)="ORRPW ADT EXP"
S ORMSG(7)="ORRPW ADT ICD PROC"
S ORMSG(8)="ORRPW ADT ICD SURG"
S ORMSG(9)="ORRPW DOD ADT EXP"
D BMES^XPDUTL(.ORMSG)
D SETPARAM
D:$G(ORERRFLG)=1 HELP
Q
;
SETPARAM ;set param value
N ORRPT,ORERR,ORVAL,ORI,ORRPID
S ORVAL="T-7;T;25"
F ORI=1:1 S ORRPT=$T(REPORT+ORI) Q:ORRPT["EOF" D
.S ORRPT=$P(ORRPT,";;",2)
.S ORRPID=$O(^ORD(101.24,"B",ORRPT,"")) I +$G(ORRPID)'>0 D BMES^XPDUTL(" "_ORRPT_" NOT FOUND!!!") S ORERRFLG=1 Q
.D EN^XPAR("PKG","ORWRP TIME/OCC LIMITS INDV",ORRPID,ORVAL,.ORERR)
.I $G(ORERR)>0 D BMES^XPDUTL("Error setting parameter: "_$P(ORERR,"^",2)) S ORERRFLG=1 Q
.D BMES^XPDUTL(ORRPT_" complete.")
Q
;
REPORT ; list of OR reports to set parameter
;;ORRPW ADT ADM DC
;;ORRPW ADT DC DIAG
;;ORRPW ADT EXP
;;ORRPW ADT ICD PROC
;;ORRPW ADT ICD SURG
;;ORRPW DOD ADT EXP
;;EOF
Q
;
HELP ; help message
N ORHLPMSG
S ORHLPMSG(1)=""
S ORHLPMSG(2)="For any errors associated with missing parameters or missing reports,"
S ORHLPMSG(3)="please submit a Remedy ticket for assistance."
D BMES^XPDUTL(.ORHLPMSG)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY406 1911 printed Dec 13, 2024@02:41:51 Page 2
ORY406 ;SLC/WAT - POST INSTALL ;01/27/15 12:57
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**406**;Dec 17, 1997;Build 13
+2 ;ICR - B/MES^XPDUTL - 10141, EN^XPAR - 2263
+3 ;;GMTS*2.7*111 modifies health summary components for ICD-10 to expand the maximum ICD code/occurrence from 10 to 25.
+4 ;;This patch sets ORWRP TIME/OCC LIMITS INDV at the PACKAGE level so that OE/RR reports that use the same components
+5 ;;will also display 25 ICD-10 codes.
+6 ;
POST ; post-init
+1 NEW ORMSG,ORERRFLG
+2 SET ORMSG(1)="This patch will establish a default value at the PACKAGE level"
+3 SET ORMSG(2)="for the ORWRP TIME/OCC LIMITS INDV parameter."
+4 SET ORMSG(2.5)="The value shall be: T-7;T;25"
+5 SET ORMSG(3)="These reports in OE/RR REPORT (#101.24) are affected:"
+6 SET ORMSG(4)="ORRPW ADT ADM DC"
+7 SET ORMSG(5)="ORRPW ADT DC DIAG"
+8 SET ORMSG(6)="ORRPW ADT EXP"
+9 SET ORMSG(7)="ORRPW ADT ICD PROC"
+10 SET ORMSG(8)="ORRPW ADT ICD SURG"
+11 SET ORMSG(9)="ORRPW DOD ADT EXP"
+12 DO BMES^XPDUTL(.ORMSG)
+13 DO SETPARAM
+14 if $GET(ORERRFLG)=1
DO HELP
+15 QUIT
+16 ;
SETPARAM ;set param value
+1 NEW ORRPT,ORERR,ORVAL,ORI,ORRPID
+2 SET ORVAL="T-7;T;25"
+3 FOR ORI=1:1
SET ORRPT=$TEXT(REPORT+ORI)
if ORRPT["EOF"
QUIT
Begin DoDot:1
+4 SET ORRPT=$PIECE(ORRPT,";;",2)
+5 SET ORRPID=$ORDER(^ORD(101.24,"B",ORRPT,""))
IF +$GET(ORRPID)'>0
DO BMES^XPDUTL(" "_ORRPT_" NOT FOUND!!!")
SET ORERRFLG=1
QUIT
+6 DO EN^XPAR("PKG","ORWRP TIME/OCC LIMITS INDV",ORRPID,ORVAL,.ORERR)
+7 IF $GET(ORERR)>0
DO BMES^XPDUTL("Error setting parameter: "_$PIECE(ORERR,"^",2))
SET ORERRFLG=1
QUIT
+8 DO BMES^XPDUTL(ORRPT_" complete.")
End DoDot:1
+9 QUIT
+10 ;
REPORT ; list of OR reports to set parameter
+1 ;;ORRPW ADT ADM DC
+2 ;;ORRPW ADT DC DIAG
+3 ;;ORRPW ADT EXP
+4 ;;ORRPW ADT ICD PROC
+5 ;;ORRPW ADT ICD SURG
+6 ;;ORRPW DOD ADT EXP
+7 ;;EOF
+8 QUIT
+9 ;
HELP ; help message
+1 NEW ORHLPMSG
+2 SET ORHLPMSG(1)=""
+3 SET ORHLPMSG(2)="For any errors associated with missing parameters or missing reports,"
+4 SET ORHLPMSG(3)="please submit a Remedy ticket for assistance."
+5 DO BMES^XPDUTL(.ORHLPMSG)
+6 QUIT
