1 | GMTSP8 ;SLC/SBW - HS Component Installation Routine ; 8/4/96 18:06
|
---|
2 | ;;2.7;Health Summary;**8**;Oct 20, 1995
|
---|
3 | HSCOMP ; Install Health Summary component
|
---|
4 | Q:+$$VERSION^XPDUTL("GMTS")<2.7 ;Quit if HS 2.7 not installed
|
---|
5 | N DIC,DLAYGO,DINUM,X,Y,INCLUDE
|
---|
6 | D COMP1,COMP2
|
---|
7 | W !,"Installing new components in AD HOC Health Summary."
|
---|
8 | S INCLUDE=0 D ENPOST^GMTSLOAD
|
---|
9 | Q
|
---|
10 | COMP1 ;VITAL SIGNS OUTPATIENT component
|
---|
11 | N AD,DA,DIE,DR,GMX
|
---|
12 | S (DIC,DLAYGO)=142.1,DIC(0)="NXL",(X,GMX)="VITAL SIGNS OUTPATIENT",DINUM=75
|
---|
13 | S AD=$O(^GMT(142.1,"B",GMX,0)) I AD=75 W !,GMX," already exists in Health Summary Component (142.1) File!" Q
|
---|
14 | D ^DIC
|
---|
15 | FILE1 I +Y'>0 W !!,"Could not install ",GMX," component",! Q
|
---|
16 | W !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."
|
---|
17 | S DIE=DIC,DA=+Y,DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVS"";3///VSO"
|
---|
18 | S DR=DR_";2///Y;4///Y;9///Vital Signs Outpat."
|
---|
19 | D ^DIE
|
---|
20 | S ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"
|
---|
21 | S ^GMT(142.1,+DA,3.5,1,0)="This component contains outpatient vital measurements extracted"
|
---|
22 | S ^GMT(142.1,+DA,3.5,2,0)="from the Vital/Measurements (Gen. Med. Rec. - Vitals) package. Time and maximum"
|
---|
23 | S ^GMT(142.1,+DA,3.5,3,0)="occurrence limits apply. Data presented includes: measurement"
|
---|
24 | S ^GMT(142.1,+DA,3.5,4,0)="date/time, blood pressure, (as SBP/DBP), pulse, temperature,"
|
---|
25 | S ^GMT(142.1,+DA,3.5,5,0)="height, weight, and respiratory rate."
|
---|
26 | S ^GMT(142.1,+DA,3.5,6,0)="Metric values will be displayed for temperature, height and weight."
|
---|
27 | S ^GMT(142.1,+DA,3.5,7,0)="If there are no outpatient measurements, a message will be displayed and"
|
---|
28 | S ^GMT(142.1,+DA,3.5,8,0)="the last non-outpatient measurements will be shown."
|
---|
29 | W !,"Component Installed.",!
|
---|
30 | D PDXINST(GMX)
|
---|
31 | Q
|
---|
32 | COMP2 ;VITAL SIGNS SELECTED OUTPATIENT component
|
---|
33 | N AD,DA,DIE,DR,GMX
|
---|
34 | S (DIC,DLAYGO)=142.1,DIC(0)="NXL",(X,GMX)="VITAL SIGNS SELECTED OUTPAT.",DINUM=76
|
---|
35 | S AD=$O(^GMT(142.1,"B",GMX,0)) I AD=76 W !,GMX," already exists in Health Summary Component (142.1) File!" Q
|
---|
36 | D ^DIC
|
---|
37 | FILE2 I +Y'>0 W !!,"Could not install ",GMX," component",! Q
|
---|
38 | W !,"Adding "_GMX_" component to HEALTH SUMMARY COMPONENT (142.1) file."
|
---|
39 | S DIE=DIC,DA=+Y,DR="1///^S X=""OUTPAT""_$C(59)_""GMTSVSS"";3///SVSO"
|
---|
40 | S DR=DR_";2///Y;4///Y;7///120.51;9///Vital Select Outpat."
|
---|
41 | S DR(2,142.17)=".01"
|
---|
42 | D ^DIE
|
---|
43 | S ^GMT(142.1,+DA,3.5,0)="^^10^10^"_DT_"^"
|
---|
44 | S ^GMT(142.1,+DA,3.5,1,0)="This component contains selected outpatient vital measurements"
|
---|
45 | S ^GMT(142.1,+DA,3.5,2,0)="extracted from the Vital/Measurements (Gen. Med. Rec. - Vitals) package."
|
---|
46 | S ^GMT(142.1,+DA,3.5,3,0)="Time and maximum occurrence limits apply and the user is allowed"
|
---|
47 | S ^GMT(142.1,+DA,3.5,4,0)="to select any of the vital measurement types defined in the"
|
---|
48 | S ^GMT(142.1,+DA,3.5,5,0)="GMRV Vital Type file (e.g., pulse, blood pressure, temperature, height,"
|
---|
49 | S ^GMT(142.1,+DA,3.5,6,0)="weight, and respiration rate). Data presented includes: measurement"
|
---|
50 | S ^GMT(142.1,+DA,3.5,7,0)="date/time, measurement type and measurement value,"
|
---|
51 | S ^GMT(142.1,+DA,3.5,8,0)="and metric values for temperature, height and weight."
|
---|
52 | S ^GMT(142.1,+DA,3.5,9,0)="If there is no outpatient measurements, a message will be shown and"
|
---|
53 | S ^GMT(142.1,+DA,3.5,10,0)="the last selected non-outpatient measurements will be shown."
|
---|
54 | S ^GMT(142.1,+DA,3.5,11,0)="Note: Formatted display is horizontal."
|
---|
55 | W !,"Component Installed.",!
|
---|
56 | ;SELECTED COMPONENTS CAN'T BE USED IN PDX
|
---|
57 | Q
|
---|
58 | PDXINST(COMP) ;Set PDX up to use new HS components
|
---|
59 | N ERR,POINT,DASHES,DOTS,PDXCOMP
|
---|
60 | W !,"Installing ",COMP," into PDX Data Segments.",!
|
---|
61 | D INSTALL(COMP)
|
---|
62 | Q
|
---|
63 | INSTALL(COMP) ;Install component in Data Segment (#394.71) file
|
---|
64 | ;CONVERT TO PDX SEGMENT NAME
|
---|
65 | S PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)
|
---|
66 | ;GET POINTER TO COMPONENT
|
---|
67 | S POINT=+$O(^GMT(142.1,"B",COMP,0))
|
---|
68 | I ('POINT) D Q
|
---|
69 | .W !!,$C(7),COMP," not found in HEALTH SUMMARY COMPONENT file."
|
---|
70 | .W !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$C(7)
|
---|
71 | ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
|
---|
72 | S ERR=$$ADDSEG^VAQUTL50(POINT)
|
---|
73 | I (ERR<0) W !,?5,$P(ERR,"^",2),$C(7) Q
|
---|
74 | W !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."
|
---|
75 | W !
|
---|
76 | Q
|
---|