| [613] | 1 | DVBA130P ;ALB/RLC - Post Init Exam file Update ; 14 Jun 2005
|
|---|
| 2 | ;;2.7;AMIE;**130**;AUG 7,2003;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; This is the post-install for DVBA*2.7*130 to correct the worksheet
|
|---|
| 5 | ; number for the Traumatic Brain Injury (TBI) worksheet in the
|
|---|
| 6 | ; AMIE EXAM file (#396.6).
|
|---|
| 7 | ;
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | EN ;
|
|---|
| 11 | D BMES^XPDUTL("DVBA*2.7*130 Post Installation --")
|
|---|
| 12 | D MES^XPDUTL(" Update to AMIE EXAM file (#396.6).")
|
|---|
| 13 | D MES^XPDUTL(" ")
|
|---|
| 14 | I '$D(^DVB(396.6)) D BMES^XPDUTL("Missing AMIE EXAM (#396.6) file") Q
|
|---|
| 15 | I $D(^DVB(396.6)) D
|
|---|
| 16 | .D EDIT
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | EDIT ;edit worksheet # for Traumatic Brain Injury to #1240
|
|---|
| 20 | N IEN,WKS,DIC,DIE,DA,DR,EXAM
|
|---|
| 21 | D BMES^XPDUTL("Editing Worksheet # for Traumatic Brain Injury...")
|
|---|
| 22 | S IEN=223,WKS=1240,EXAM="TRAUMATIC BRAIN INJURY (TBI)"
|
|---|
| 23 | S DIE="^DVB(396.6,",DA=IEN,DR=".07///^S X=WKS" D ^DIE
|
|---|
| 24 | ;
|
|---|
| 25 | I $P(^DVB(396.6,223,0),U,7)=1240 D Q
|
|---|
| 26 | .D MES^XPDUTL(" Successfully edited Entry #"_IEN)
|
|---|
| 27 | .D MES^XPDUTL(" for exam "_EXAM_".")
|
|---|
| 28 | .D MES^XPDUTL(" New worksheet number is #"_WKS_".")
|
|---|
| 29 | I $P(^DVB(396.6,223,0),U,7)'=1240 D
|
|---|
| 30 | .D MES^XPDUTL(" *** Warning - Unable to edit Entry #"_IEN)
|
|---|
| 31 | .D MES^XPDUTL(" for exam "_EXAM_".")
|
|---|
| 32 | K DA,DR,XY,Y,WKS,IEN,X,DIE,EXAM
|
|---|
| 33 | Q
|
|---|
