source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSP78.m@ 648

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1GMTSP78 ;ISP/TDP - PRE/POST INSTALL FOR GMTS*2.7*78; 8/25/2005
2 ;;2.7;Health Summary;**78**;Oct 20, 1995
3 Q
4 ;
5POST ; Start of Post-init for patch GMTS*2.7*78
6 N %
7 S %=$$NEWCP^XPDUTL("POST1","POST1^GMTSP78")
8 Q
9POST1 ;
10 D BMES^XPDUTL("Starting Post-init...")
11 D SEARCH
12 D BMES^XPDUTL("Post-init complete.")
13 Q
14 ;
15SEARCH ; Search EXTERNAL/EXTRACT ROUTINE (#1.1) field of the HEALTH SUMMARY
16 ; COMPONENT (#142.1) file for EN1;GMRVUT0 and replace with EN1;GMVHS.
17 N CNT,DA,DIC,DIE,DO,DR,GMTSCHG,GMTSEXRT,GMTSIEN,GMTSRTN,GMTSVARY,GMTSVITL,X,Y
18 S GMTSRTN="EN1;GMVHS"
19 S GMTSVARY="VITAL SIGNS^VITAL SIGNS DETAILED DISPLAY^VITAL SIGNS OUTPATIENT^VITAL SIGNS SELECTED^VITAL SIGNS SELECTED OUTPAT."
20 F CNT=1:1:5 S GMTSVITL=$P(GMTSVARY,"^",CNT) D
21 . S GMTSIEN=0 F S GMTSIEN=$O(^GMT(142.1,"B",GMTSVITL,GMTSIEN)) Q:GMTSIEN="" D
22 .. S GMTSCHG=0
23 .. I $O(^GMT(142.1,GMTSIEN,.1,"B",GMTSRTN,0)) D Q
24 ... D BMES^XPDUTL(">>> EXTERNAL/EXTRACT ROUTINE FOR "_GMTSVITL_" HEALTH"),MES^XPDUTL(">>> SUMMARY COMPONENT ALREADY CONTAINS EN1;GMVHS. NO CHANGES MADE.")
25 .. S GMTSEXRT=$O(^GMT(142.1,GMTSIEN,.1,"B","EN1;GMRVUT0",0))
26 .. I GMTSEXRT'="" D
27 ... S DIE="^GMT(142.1,"_GMTSIEN_",.1,",DA=GMTSEXRT,DA(1)=GMTSIEN,DR=".01////@"
28 ... D ^DIE K DIE,DA,DR
29 ... S GMTSCHG=1
30 .. K DO
31 .. S DA=+$P($G(^GMT(142.1,GMTSIEN,.1,0)),U,3)+1,DA(1)=GMTSIEN
32 .. S DIC="^GMT(142.1,GMTSIEN,.1,",DIC(0)="L",X=GMTSRTN
33 .. D FILE^DICN
34 .. I GMTSCHG=0 D
35 ... I Y=-1 D BMES^XPDUTL(">>> ERROR TRYING TO ADD EXTERNAL/EXTRACT ROUTINE OF EN1;GMVHS TO"),MES^XPDUTL(">>> "_GMTSVITL_" HEALTH SUMMARY COMPONENT.")
36 ... I Y>0 D BMES^XPDUTL(">>> EXTERNAL/EXTRACT ROUTINE OF EN1;GMVHS HAS BEEN ADDED TO"),MES^XPDUTL(">>> "_GMTSVITL_" HEALTH SUMMARY COMPONENT.")
37 .. I GMTSCHG=1 D
38 ... I Y=-1 D BMES^XPDUTL(">>> ERROR TRYING TO CHANGE EXTERNAL/EXTRACT ROUTINE FROM EN1;GMRVUT0"),MES^XPDUTL(">>> TO EN1;GMVHS FOR "_GMTSVITL_" HEALTH SUMMARY COMPONENT.")
39 ... I Y>0 D BMES^XPDUTL(">>> CHANGED EXTERNAL/EXTRACT ROUTINE FROM EN1;GMRVUT0 TO EN1;GMVHS FOR"),MES^XPDUTL(">>> "_GMTSVITL_" HEALTH SUMMARY COMPONENT.")
40 .. K DA,DIC,X,Y
41 Q
Note: See TracBrowser for help on using the repository browser.