| 1 | GMTSP78 ;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 | ;
|
|---|
| 5 | POST ; Start of Post-init for patch GMTS*2.7*78
|
|---|
| 6 | N %
|
|---|
| 7 | S %=$$NEWCP^XPDUTL("POST1","POST1^GMTSP78")
|
|---|
| 8 | Q
|
|---|
| 9 | POST1 ;
|
|---|
| 10 | D BMES^XPDUTL("Starting Post-init...")
|
|---|
| 11 | D SEARCH
|
|---|
| 12 | D BMES^XPDUTL("Post-init complete.")
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | SEARCH ; 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
|
|---|
