AMER3P6 ;GDIT/HS/BEE - AMER v3.0 Patch 6 Post Install ; 07 Oct 2013 11:33 AM
;;3.0;ER VISIT SYSTEM;**6**;MAR 03, 2009;Build 30
;
Q
;
PST ;EP - Front end for AMER*3.0*6 post install
;
;Change the 9009082.2 "ICD9 CODE" entry to "ICD CODE"
D
. NEW DIC,X,Y,AMEREDT,ERROR
. ;
. S DIC="9009082.2",DIC(0)="X",X="ICD9 CODE"
. D ^DIC
. I +Y<0 Q
. ;
. ;Update entry
. S AMEREDT(9009082.2,+Y_",",.01)="ICD CODE"
. D FILE^DIE("","AMEREDT","ERROR")
;
;Add an entry to ER INPUT MAP file
D
. NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
. ;
. S DIC="9009082.3",DIC(0)="LX",X="QD28"
. D ^DIC
. I +Y<0 Q
. ;
. ;Add in the extra information
. S RTYPE=$O(^AMER(2,"B","ADMISSION SUMMARY",""))
. S AMEREDT(9009082.3,+Y_",",".02")="D"
. S AMEREDT(9009082.3,+Y_",",".03")="28"
. S AMEREDT(9009082.3,+Y_",",".05")="12.8"
. S AMEREDT(9009082.3,+Y_",",".06")="Q"
. I RTYPE]"" S AMEREDT(9009082.3,+Y_",",".08")=RTYPE
. S AMEREDT(9009082.3,+Y_",",".09")="1"
. S AMEREDT(9009082.3,+Y_",",".12")="1"
. S AMEREDT(9009082.3,+Y_",","2")="Decision to admit at"
. D FILE^DIE("","AMEREDT","ERROR")
;
;Update QD25 Print Header in ER INPUT MAP file
D
. NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
. ;
. S DIC="9009082.3",DIC(0)="X",X="QD25"
. D ^DIC
. I +Y<0 Q
. ;
. ;Add in the extra information
. S AMEREDT(9009082.3,+Y_",","2")="Medical Screening Exam Time"
. D FILE^DIE("","AMEREDT","ERROR")
;
;Update QD21 Print Header in ER INPUT MAP file
D
. NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
. ;
. S DIC="9009082.3",DIC(0)="X",X="QD21"
. D ^DIC
. I +Y<0 Q
. ;
. ;Add in the extra information
. S AMEREDT(9009082.3,+Y_",","2")="ED Provider"
. D FILE^DIE("","AMEREDT","ERROR")
;
;Update Cause of Injury definition entry in ER INPUT MAP file
D
. NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
. ;
. S DIC="9009082.3",DIC(0)="X",X="QD33"
. D ^DIC
. I +Y<0 Q
. ;
. ;Add in the extra information
. S AMEREDT(9009082.3,+Y_",",".09")=7
. D FILE^DIE("","AMEREDT","ERROR")
;
;Add "NO SAFETY DEVICE" as a safety device
D
. NEW DIC,X,Y,AMEREDT,ERROR
. S DIC="9009083",DIC(0)="XL",X="NO SAFETY DEVICE"
. D ^DIC
. I +Y<0 Q
. ;
. ;Get the safety type
. S SAFIEN=$O(^AMER(2,"B","SAFETY EQUIPMENT","")) Q:SAFIEN=""
. ;
. ;Add it to the entry
. S AMEREDT(9009083,+Y_",",1)=SAFIEN
. D FILE^DIE("","AMEREDT","ERROR")
;
Q
AMER3P6 ;GDIT/HS/BEE - AMER v3.0 Patch 6 Post Install ; 07 Oct 2013 11:33 AM
+1 ;;3.0;ER VISIT SYSTEM;**6**;MAR 03, 2009;Build 30
+2 ;
+3 QUIT
+4 ;
PST ;EP - Front end for AMER*3.0*6 post install
+1 ;
+2 ;Change the 9009082.2 "ICD9 CODE" entry to "ICD CODE"
+3 Begin DoDot:1
+4 NEW DIC,X,Y,AMEREDT,ERROR
+5 ;
+6 SET DIC="9009082.2"
SET DIC(0)="X"
SET X="ICD9 CODE"
+7 DO ^DIC
+8 IF +Y<0
QUIT
+9 ;
+10 ;Update entry
+11 SET AMEREDT(9009082.2,+Y_",",.01)="ICD CODE"
+12 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+13 ;
+14 ;Add an entry to ER INPUT MAP file
+15 Begin DoDot:1
+16 NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
+17 ;
+18 SET DIC="9009082.3"
SET DIC(0)="LX"
SET X="QD28"
+19 DO ^DIC
+20 IF +Y<0
QUIT
+21 ;
+22 ;Add in the extra information
+23 SET RTYPE=$ORDER(^AMER(2,"B","ADMISSION SUMMARY",""))
+24 SET AMEREDT(9009082.3,+Y_",",".02")="D"
+25 SET AMEREDT(9009082.3,+Y_",",".03")="28"
+26 SET AMEREDT(9009082.3,+Y_",",".05")="12.8"
+27 SET AMEREDT(9009082.3,+Y_",",".06")="Q"
+28 IF RTYPE]""
SET AMEREDT(9009082.3,+Y_",",".08")=RTYPE
+29 SET AMEREDT(9009082.3,+Y_",",".09")="1"
+30 SET AMEREDT(9009082.3,+Y_",",".12")="1"
+31 SET AMEREDT(9009082.3,+Y_",","2")="Decision to admit at"
+32 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+33 ;
+34 ;Update QD25 Print Header in ER INPUT MAP file
+35 Begin DoDot:1
+36 NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
+37 ;
+38 SET DIC="9009082.3"
SET DIC(0)="X"
SET X="QD25"
+39 DO ^DIC
+40 IF +Y<0
QUIT
+41 ;
+42 ;Add in the extra information
+43 SET AMEREDT(9009082.3,+Y_",","2")="Medical Screening Exam Time"
+44 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+45 ;
+46 ;Update QD21 Print Header in ER INPUT MAP file
+47 Begin DoDot:1
+48 NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
+49 ;
+50 SET DIC="9009082.3"
SET DIC(0)="X"
SET X="QD21"
+51 DO ^DIC
+52 IF +Y<0
QUIT
+53 ;
+54 ;Add in the extra information
+55 SET AMEREDT(9009082.3,+Y_",","2")="ED Provider"
+56 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+57 ;
+58 ;Update Cause of Injury definition entry in ER INPUT MAP file
+59 Begin DoDot:1
+60 NEW DIC,X,Y,AMEREDT,ERROR,RTYPE
+61 ;
+62 SET DIC="9009082.3"
SET DIC(0)="X"
SET X="QD33"
+63 DO ^DIC
+64 IF +Y<0
QUIT
+65 ;
+66 ;Add in the extra information
+67 SET AMEREDT(9009082.3,+Y_",",".09")=7
+68 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+69 ;
+70 ;Add "NO SAFETY DEVICE" as a safety device
+71 Begin DoDot:1
+72 NEW DIC,X,Y,AMEREDT,ERROR
+73 SET DIC="9009083"
SET DIC(0)="XL"
SET X="NO SAFETY DEVICE"
+74 DO ^DIC
+75 IF +Y<0
QUIT
+76 ;
+77 ;Get the safety type
+78 SET SAFIEN=$ORDER(^AMER(2,"B","SAFETY EQUIPMENT",""))
IF SAFIEN=""
QUIT
+79 ;
+80 ;Add it to the entry
+81 SET AMEREDT(9009083,+Y_",",1)=SAFIEN
+82 DO FILE^DIE("","AMEREDT","ERROR")
End DoDot:1
+83 ;
+84 QUIT
