34 lines
1.1 KiB
Mathematica
34 lines
1.1 KiB
Mathematica
DVBA130P ;ALB/RLC - Post Init Exam file Update ; 14 Jun 2005
|
|
;;2.7;AMIE;**130**;AUG 7,2003;Build 2
|
|
;
|
|
; This is the post-install for DVBA*2.7*130 to correct the worksheet
|
|
; number for the Traumatic Brain Injury (TBI) worksheet in the
|
|
; AMIE EXAM file (#396.6).
|
|
;
|
|
Q
|
|
;
|
|
EN ;
|
|
D BMES^XPDUTL("DVBA*2.7*130 Post Installation --")
|
|
D MES^XPDUTL(" Update to AMIE EXAM file (#396.6).")
|
|
D MES^XPDUTL(" ")
|
|
I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
|
|
I $D(^DVB(396.6)) D
|
|
.D EDIT
|
|
Q
|
|
;
|
|
EDIT ;edit worksheet # for Traumatic Brain Injury to #1240
|
|
N IEN,WKS,DIC,DIE,DA,DR,EXAM
|
|
D BMES^XPDUTL("Editing Worksheet # for Traumatic Brain Injury...")
|
|
S IEN=223,WKS=1240,EXAM="TRAUMATIC BRAIN INJURY (TBI)"
|
|
S DIE="^DVB(396.6,",DA=IEN,DR=".07///^S X=WKS" D ^DIE
|
|
;
|
|
I $P(^DVB(396.6,223,0),U,7)=1240 D Q
|
|
.D MES^XPDUTL(" Successfully edited Entry #"_IEN)
|
|
.D MES^XPDUTL(" for exam "_EXAM_".")
|
|
.D MES^XPDUTL(" New worksheet number is #"_WKS_".")
|
|
I $P(^DVB(396.6,223,0),U,7)'=1240 D
|
|
.D MES^XPDUTL(" *** Warning - Unable to edit Entry #"_IEN)
|
|
.D MES^XPDUTL(" for exam "_EXAM_".")
|
|
K DA,DR,XY,Y,WKS,IEN,X,DIE,EXAM
|
|
Q
|