source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSP8.m@ 1578

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

initial load of WorldVistAEHR

File size: 4.0 KB
Line 
1GMTSP8 ;SLC/SBW - HS Component Installation Routine ; 8/4/96 18:06
2 ;;2.7;Health Summary;**8**;Oct 20, 1995
3HSCOMP ; 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
10COMP1 ;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
15FILE1 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
32COMP2 ;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
37FILE2 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
58PDXINST(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
63INSTALL(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
Note: See TracBrowser for help on using the repository browser.