GMTSP8.m

GMTSP8 ;SLC/SBW - HS Component Installation Routine ; 8/4/96  18:06

 ;;2.7;Health Summary;**8**;Oct 20, 1995

HSCOMP ; Install Health Summary component

 Q:+$$VERSION^XPDUTL("GMTS")<2.7  ;Quit if HS 2.7 not installed

 N DIC,DLAYGO,DINUM,X,Y,INCLUDE

 D COMP1,COMP2

 W !,"Installing new components in AD HOC Health Summary."

 S INCLUDE=0 D ENPOST^GMTSLOAD

 Q

COMP1 ;VITAL SIGNS OUTPATIENT component

 N AD,DA,DIE,DR,GMX

 S (DIC,DLAYGO)=142.1,DIC(0)="NXL",(X,GMX)="VITAL SIGNS OUTPATIENT",DINUM=75

 S AD=$O(^GMT(142.1,"B",GMX,0)) I AD=75 W !,GMX," already exists in Health Summary Component (142.1) File!" Q

 D ^DIC

FILE1 I +Y'>0 W !!,"Could not install ",GMX," component",! Q

 W !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."

 S DIE=DIC,DA=+Y,DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVS"";3///VSO"

 S DR=DR_";2///Y;4///Y;9///Vital Signs Outpat."

 D ^DIE

 S ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"

 S ^GMT(142.1,+DA,3.5,1,0)="This component contains outpatient vital measurements extracted"

 S ^GMT(142.1,+DA,3.5,2,0)="from the Vital/Measurements (Gen. Med. Rec. - Vitals) package.  Time and maximum"

 S ^GMT(142.1,+DA,3.5,3,0)="occurrence limits apply.  Data presented includes: measurement"

 S ^GMT(142.1,+DA,3.5,4,0)="date/time, blood pressure, (as SBP/DBP), pulse, temperature,"

 S ^GMT(142.1,+DA,3.5,5,0)="height, weight, and respiratory rate."

 S ^GMT(142.1,+DA,3.5,6,0)="Metric values will be displayed for temperature, height and weight."

 S ^GMT(142.1,+DA,3.5,7,0)="If there are no outpatient measurements, a message will be displayed and"

 S ^GMT(142.1,+DA,3.5,8,0)="the last non-outpatient measurements will be shown."

 W !,"Component Installed.",!

 D PDXINST(GMX)

 Q

COMP2 ;VITAL SIGNS SELECTED OUTPATIENT component

 N AD,DA,DIE,DR,GMX

 S (DIC,DLAYGO)=142.1,DIC(0)="NXL",(X,GMX)="VITAL SIGNS SELECTED OUTPAT.",DINUM=76

 S AD=$O(^GMT(142.1,"B",GMX,0)) I AD=76 W !,GMX," already exists in Health Summary Component (142.1) File!" Q

 D ^DIC

FILE2 I +Y'>0 W !!,"Could not install ",GMX," component",! Q

 W !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."

 S DIE=DIC,DA=+Y,DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVSS"";3///SVSO"

 S DR=DR_";2///Y;4///Y;7///120.51;9///Vital Select Outpat."

 S DR(2,142.17)=".01"

 D ^DIE

 S ^GMT(142.1,+DA,3.5,0)="^^10^10^"_DT_"^"

 S ^GMT(142.1,+DA,3.5,1,0)="This component contains selected outpatient vital measurements"

 S ^GMT(142.1,+DA,3.5,2,0)="extracted from the Vital/Measurements (Gen. Med. Rec. - Vitals) package."

 S ^GMT(142.1,+DA,3.5,3,0)="Time and maximum occurrence limits apply and the user is allowed"

 S ^GMT(142.1,+DA,3.5,4,0)="to select any of the vital measurement types defined in the"

 S ^GMT(142.1,+DA,3.5,5,0)="GMRV Vital Type file (e.g., pulse, blood pressure, temperature, height,"

 S ^GMT(142.1,+DA,3.5,6,0)="weight, and respiration rate).  Data presented includes: measurement"

 S ^GMT(142.1,+DA,3.5,7,0)="date/time, measurement type and measurement value,"

 S ^GMT(142.1,+DA,3.5,8,0)="and metric values for temperature, height and weight."

 S ^GMT(142.1,+DA,3.5,9,0)="If there is no outpatient measurements, a message will be shown and"

 S ^GMT(142.1,+DA,3.5,10,0)="the last selected non-outpatient measurements will be shown."

 S ^GMT(142.1,+DA,3.5,11,0)="Note: Formatted display is horizontal."

 W !,"Component Installed.",!

 ;SELECTED COMPONENTS CAN'T BE USED IN PDX

 Q

PDXINST(COMP) ;Set PDX up to use new HS components

 N ERR,POINT,DASHES,DOTS,PDXCOMP

 W !,"Installing ",COMP," into PDX Data Segments.",!

 D INSTALL(COMP)

 Q

INSTALL(COMP) ;Install component in Data Segment (#394.71) file

 ;CONVERT TO PDX SEGMENT NAME

 S PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)

 ;GET POINTER TO COMPONENT

 S POINT=+$O(^GMT(142.1,"B",COMP,0))

 I ('POINT) D  Q

 .W !!,$C(7),COMP," not found in HEALTH SUMMARY COMPONENT file."

 .W !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$C(7)

 ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS

 S ERR=$$ADDSEG^VAQUTL50(POINT)

 I (ERR<0) W !,?5,$P(ERR,"^",2),$C(7) Q

 W !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."

 W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSP8   4144     printed  Mar 13, 2025@21:03:49                                                                                                                                                                                                      Page 2

GMTSP8    ;SLC/SBW - HS Component Installation Routine ; 8/4/96  18:06

 +1       ;;2.7;Health Summary;**8**;Oct 20, 1995

HSCOMP    ; Install Health Summary component

 +1       ;Quit if HS 2.7 not installed

           if +$$VERSION^XPDUTL("GMTS")<2.7

               QUIT 

 +2        NEW DIC,DLAYGO,DINUM,X,Y,INCLUDE

 +3        DO COMP1

           DO COMP2

 +4        WRITE !,"Installing new components in AD HOC Health Summary."

 +5        SET INCLUDE=0

           DO ENPOST^GMTSLOAD

 +6        QUIT 

COMP1     ;VITAL SIGNS OUTPATIENT component

 +1        NEW AD,DA,DIE,DR,GMX

 +2        SET (DIC,DLAYGO)=142.1

           SET DIC(0)="NXL"

           SET (X,GMX)="VITAL SIGNS OUTPATIENT"

           SET DINUM=75

 +3        SET AD=$ORDER(^GMT(142.1,"B",GMX,0))

           IF AD=75

               WRITE !,GMX," already exists in Health Summary Component (142.1) File!"

               QUIT 

 +4        DO ^DIC

FILE1      IF +Y'>0

               WRITE !!,"Could not install ",GMX," component",!

               QUIT 

 +1        WRITE !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."

 +2        SET DIE=DIC

           SET DA=+Y

           SET DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVS"";3///VSO"

 +3        SET DR=DR_";2///Y;4///Y;9///Vital Signs Outpat."

 +4        DO ^DIE

 +5        SET ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"

 +6        SET ^GMT(142.1,+DA,3.5,1,0)="This component contains outpatient vital measurements extracted"

 +7        SET ^GMT(142.1,+DA,3.5,2,0)="from the Vital/Measurements (Gen. Med. Rec. - Vitals) package.  Time and maximum"

 +8        SET ^GMT(142.1,+DA,3.5,3,0)="occurrence limits apply.  Data presented includes: measurement"

 +9        SET ^GMT(142.1,+DA,3.5,4,0)="date/time, blood pressure, (as SBP/DBP), pulse, temperature,"

 +10       SET ^GMT(142.1,+DA,3.5,5,0)="height, weight, and respiratory rate."

 +11       SET ^GMT(142.1,+DA,3.5,6,0)="Metric values will be displayed for temperature, height and weight."

 +12       SET ^GMT(142.1,+DA,3.5,7,0)="If there are no outpatient measurements, a message will be displayed and"

 +13       SET ^GMT(142.1,+DA,3.5,8,0)="the last non-outpatient measurements will be shown."

 +14       WRITE !,"Component Installed.",!

 +15       DO PDXINST(GMX)

 +16       QUIT 

COMP2     ;VITAL SIGNS SELECTED OUTPATIENT component

 +1        NEW AD,DA,DIE,DR,GMX

 +2        SET (DIC,DLAYGO)=142.1

           SET DIC(0)="NXL"

           SET (X,GMX)="VITAL SIGNS SELECTED OUTPAT."

           SET DINUM=76

 +3        SET AD=$ORDER(^GMT(142.1,"B",GMX,0))

           IF AD=76

               WRITE !,GMX," already exists in Health Summary Component (142.1) File!"

               QUIT 

 +4        DO ^DIC

FILE2      IF +Y'>0

               WRITE !!,"Could not install ",GMX," component",!

               QUIT 

 +1        WRITE !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."

 +2        SET DIE=DIC

           SET DA=+Y

           SET DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVSS"";3///SVSO"

 +3        SET DR=DR_";2///Y;4///Y;7///120.51;9///Vital Select Outpat."

 +4        SET DR(2,142.17)=".01"

 +5        DO ^DIE

 +6        SET ^GMT(142.1,+DA,3.5,0)="^^10^10^"_DT_"^"

 +7        SET ^GMT(142.1,+DA,3.5,1,0)="This component contains selected outpatient vital measurements"

 +8        SET ^GMT(142.1,+DA,3.5,2,0)="extracted from the Vital/Measurements (Gen. Med. Rec. - Vitals) package."

 +9        SET ^GMT(142.1,+DA,3.5,3,0)="Time and maximum occurrence limits apply and the user is allowed"

 +10       SET ^GMT(142.1,+DA,3.5,4,0)="to select any of the vital measurement types defined in the"

 +11       SET ^GMT(142.1,+DA,3.5,5,0)="GMRV Vital Type file (e.g., pulse, blood pressure, temperature, height,"

 +12       SET ^GMT(142.1,+DA,3.5,6,0)="weight, and respiration rate).  Data presented includes: measurement"

 +13       SET ^GMT(142.1,+DA,3.5,7,0)="date/time, measurement type and measurement value,"

 +14       SET ^GMT(142.1,+DA,3.5,8,0)="and metric values for temperature, height and weight."

 +15       SET ^GMT(142.1,+DA,3.5,9,0)="If there is no outpatient measurements, a message will be shown and"

 +16       SET ^GMT(142.1,+DA,3.5,10,0)="the last selected non-outpatient measurements will be shown."

 +17       SET ^GMT(142.1,+DA,3.5,11,0)="Note: Formatted display is horizontal."

 +18       WRITE !,"Component Installed.",!

 +19      ;SELECTED COMPONENTS CAN'T BE USED IN PDX

 +20       QUIT 

PDXINST(COMP) ;Set PDX up to use new HS components

 +1        NEW ERR,POINT,DASHES,DOTS,PDXCOMP

 +2        WRITE !,"Installing ",COMP," into PDX Data Segments.",!

 +3        DO INSTALL(COMP)

 +4        QUIT 

INSTALL(COMP) ;Install component in Data Segment (#394.71) file

 +1       ;CONVERT TO PDX SEGMENT NAME

 +2        SET PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)

 +3       ;GET POINTER TO COMPONENT

 +4        SET POINT=+$ORDER(^GMT(142.1,"B",COMP,0))

 +5        IF ('POINT)

               Begin DoDot:1

 +6                WRITE !!,$CHAR(7),COMP," not found in HEALTH SUMMARY COMPONENT file."

 +7                WRITE !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$CHAR(7)

               End DoDot:1

               QUIT 

 +8       ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS

 +9        SET ERR=$$ADDSEG^VAQUTL50(POINT)

 +10       IF (ERR<0)

               WRITE !,?5,$PIECE(ERR,"^",2),$CHAR(7)

               QUIT 

 +11       WRITE !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."

 +12       WRITE !

 +13       QUIT