source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBA130P.m@ 1789

Last change on this file since 1789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DVBA130P ;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 ;
10EN ;
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 ;
19EDIT ;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
Note: See TracBrowser for help on using the repository browser.