MDPRE12 ;HINES OIFO/TJ - Pre Installation Tasks;02 Mar 2008
;;1.0;CLINICAL PROCEDURES;**12**;Apr 01, 2004;Build 318
;Per VHA Directive 2004-038, this MDCRTN should not be modified.
;
; This routine uses the following IAs:
;
; # 2263 - XPAR calls TOOLKIT (supported)
; # 4447 - POSTKID^VDEFVU VDEF (controlled subscription)
; #10141 - MES^XPDUTL Kernel (supported)
;
EN ; Deactivate CP Flowsheets-VDEF
;
N MDX,MDTASK,MDTMP
D GETLST^XPAR(.MDTMP,"SYS","MD PARAMETERS","Q")
F MDX=0:0 S MDX=$O(MDTMP(MDX)) Q:'MDX D:MDTMP(MDX)?1"TASK_".E
.S MDTASK($P(MDTMP(MDX),"^",1))=$P(MDTMP(MDX),"^",2)
.D EN^XPAR("SYS","MD PARAMETERS",$P(MDTMP(MDX),"^",1),"@")
;
; Now rebuild the one that we want to keep
;
S MDTASK("TASK_HL7_CLEANUP")=$G(MDTASK("TASK_HL7_CLEANUP"),"0;;;0")
;
S $P(MDTASK("TASK_HL7_CLEANUP"),";",2)="HL7 Cleanup"
S $P(MDTASK("TASK_HL7_CLEANUP"),";",3)="HL7 MDCPURG"
;
; Save them back to XPAR
;
D MES^XPDUTL(" MD*1.0*12 Pre Init begin")
F MDX="TASK_HL7_CLEANUP" D
.D EN^XPAR("SYS","MD PARAMETERS",MDX,MDTASK(MDX))
.D MES^XPDUTL(" Task '"_MDX_"' updated...")
;
;
;
; IA 4447.
;
; Event subtypes:
; CPAN - CLIO Admit/Visit Notification (A01)
; CPCAN - CLIO Cancel Admit Notice (A11)
; CPCDE - CLIO Cancel Discharge (A13)
; CPCT - CLIO Cancel Transfer (A12)
; CPDE - CLIO Discharge/End Visit (A03)
; CPTP - CLIO Transfer a Patient (A02)
; CPUPI - CLIO Update Patient Info (A08)
;
; Message/Event types - Protocols - Extraction Program
; ADT/A01 - MDC CPAN VS - MDCA01
; ADT/A02 - MDC CPTP VS - MDCA02
; ADT/A03 - MDC CPDE VS - MDCA03
; ADT/A08 - MDC CPUPI VS - MDCA08
; ADT/A11 - MDC CPCAN VS - MDCA11
; ADT/A12 - MDC CPCT VS - MDCA12
; ADT/A13 - MDC CPCDE VS - MDCA13
;
D POSTKID^VDEFVU("ADT","A01","CPAN","MDC CPAN VS","CLINICAL PROCEDURES","MDCA01","CLIO Admit/Visit Notification (A01)","CLIO Admit/Visit Notification (A01)")
D POSTKID^VDEFVU("ADT","A02","CPTP","MDC CPTP VS","CLINICAL PROCEDURES","MDCA02","CLIO Transfer a Patient (A02)","CLIO Transfer a Patient (A02)")
D POSTKID^VDEFVU("ADT","A03","CPDE","MDC CPDE VS","CLINICAL PROCEDURES","MDCA03","CLIO Discharge/End Visit (A03)","CLIO Discharge/End Visit (A03)")
D POSTKID^VDEFVU("ADT","A08","CPUPI","MDC CPUPI VS","CLINICAL PROCEDURES","MDCA08","CLIO Update Patient Info (A08)","CLIO Update Patient Info (A08)")
D POSTKID^VDEFVU("ADT","A11","CPCAN","MDC CPCAN VS","CLINICAL PROCEDURES","MDCA11","CLIO Cancel Admit Notice (A11)","CLIO Cancel Admit Notice (A11)")
D POSTKID^VDEFVU("ADT","A12","CPCT","MDC CPCT VS","CLINICAL PROCEDURES","MDCA12","CLIO Cancel Transfer (A12)","CLIO Cancel Transfer (A12)")
D POSTKID^VDEFVU("ADT","A13","CPCDE","MDC CPCDE VS","CLINICAL PROCEDURES","MDCA13","CLIO Cancel Discharge (A13)","CLIO Cancel Discharge (A13)")
D MES^XPDUTL(" CP Flowsheets - VDEF entries have been deactivated")
D MES^XPDUTL(" MD*1.0*12 Pre Init complete")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPRE12 3120 printed Apr 09, 2024@20:49:13 Page 2
MDPRE12 ;HINES OIFO/TJ - Pre Installation Tasks;02 Mar 2008
+1 ;;1.0;CLINICAL PROCEDURES;**12**;Apr 01, 2004;Build 318
+2 ;Per VHA Directive 2004-038, this MDCRTN should not be modified.
+3 ;
+4 ; This routine uses the following IAs:
+5 ;
+6 ; # 2263 - XPAR calls TOOLKIT (supported)
+7 ; # 4447 - POSTKID^VDEFVU VDEF (controlled subscription)
+8 ; #10141 - MES^XPDUTL Kernel (supported)
+9 ;
EN ; Deactivate CP Flowsheets-VDEF
+1 ;
+2 NEW MDX,MDTASK,MDTMP
+3 DO GETLST^XPAR(.MDTMP,"SYS","MD PARAMETERS","Q")
+4 FOR MDX=0:0
SET MDX=$ORDER(MDTMP(MDX))
if 'MDX
QUIT
if MDTMP(MDX)?1"TASK_".E
Begin DoDot:1
+5 SET MDTASK($PIECE(MDTMP(MDX),"^",1))=$PIECE(MDTMP(MDX),"^",2)
+6 DO EN^XPAR("SYS","MD PARAMETERS",$PIECE(MDTMP(MDX),"^",1),"@")
End DoDot:1
+7 ;
+8 ; Now rebuild the one that we want to keep
+9 ;
+10 SET MDTASK("TASK_HL7_CLEANUP")=$GET(MDTASK("TASK_HL7_CLEANUP"),"0;;;0")
+11 ;
+12 SET $PIECE(MDTASK("TASK_HL7_CLEANUP"),";",2)="HL7 Cleanup"
+13 SET $PIECE(MDTASK("TASK_HL7_CLEANUP"),";",3)="HL7 MDCPURG"
+14 ;
+15 ; Save them back to XPAR
+16 ;
+17 DO MES^XPDUTL(" MD*1.0*12 Pre Init begin")
+18 FOR MDX="TASK_HL7_CLEANUP"
Begin DoDot:1
+19 DO EN^XPAR("SYS","MD PARAMETERS",MDX,MDTASK(MDX))
+20 DO MES^XPDUTL(" Task '"_MDX_"' updated...")
End DoDot:1
+21 ;
+22 ;
+23 ;
+24 ; IA 4447.
+25 ;
+26 ; Event subtypes:
+27 ; CPAN - CLIO Admit/Visit Notification (A01)
+28 ; CPCAN - CLIO Cancel Admit Notice (A11)
+29 ; CPCDE - CLIO Cancel Discharge (A13)
+30 ; CPCT - CLIO Cancel Transfer (A12)
+31 ; CPDE - CLIO Discharge/End Visit (A03)
+32 ; CPTP - CLIO Transfer a Patient (A02)
+33 ; CPUPI - CLIO Update Patient Info (A08)
+34 ;
+35 ; Message/Event types - Protocols - Extraction Program
+36 ; ADT/A01 - MDC CPAN VS - MDCA01
+37 ; ADT/A02 - MDC CPTP VS - MDCA02
+38 ; ADT/A03 - MDC CPDE VS - MDCA03
+39 ; ADT/A08 - MDC CPUPI VS - MDCA08
+40 ; ADT/A11 - MDC CPCAN VS - MDCA11
+41 ; ADT/A12 - MDC CPCT VS - MDCA12
+42 ; ADT/A13 - MDC CPCDE VS - MDCA13
+43 ;
+44 DO POSTKID^VDEFVU("ADT","A01","CPAN","MDC CPAN VS","CLINICAL PROCEDURES","MDCA01","CLIO Admit/Visit Notification (A01)","CLIO Admit/Visit Notification (A01)")
+45 DO POSTKID^VDEFVU("ADT","A02","CPTP","MDC CPTP VS","CLINICAL PROCEDURES","MDCA02","CLIO Transfer a Patient (A02)","CLIO Transfer a Patient (A02)")
+46 DO POSTKID^VDEFVU("ADT","A03","CPDE","MDC CPDE VS","CLINICAL PROCEDURES","MDCA03","CLIO Discharge/End Visit (A03)","CLIO Discharge/End Visit (A03)")
+47 DO POSTKID^VDEFVU("ADT","A08","CPUPI","MDC CPUPI VS","CLINICAL PROCEDURES","MDCA08","CLIO Update Patient Info (A08)","CLIO Update Patient Info (A08)")
+48 DO POSTKID^VDEFVU("ADT","A11","CPCAN","MDC CPCAN VS","CLINICAL PROCEDURES","MDCA11","CLIO Cancel Admit Notice (A11)","CLIO Cancel Admit Notice (A11)")
+49 DO POSTKID^VDEFVU("ADT","A12","CPCT","MDC CPCT VS","CLINICAL PROCEDURES","MDCA12","CLIO Cancel Transfer (A12)","CLIO Cancel Transfer (A12)")
+50 DO POSTKID^VDEFVU("ADT","A13","CPCDE","MDC CPCDE VS","CLINICAL PROCEDURES","MDCA13","CLIO Cancel Discharge (A13)","CLIO Cancel Discharge (A13)")
+51 DO MES^XPDUTL(" CP Flowsheets - VDEF entries have been deactivated")
+52 DO MES^XPDUTL(" MD*1.0*12 Pre Init complete")
+53 QUIT
+54 ;
