source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTSPI63.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1GMTSPI63 ; SLC/AGP - Post Install GMTS*2.7*63 ; 01/27/2005
2 ;;2.7;Health Summary;**63**;Oct 20, 1995
3 Q
4PRE ;
5 N DIU
6 S DIU="142",DIU(0)="" D EN^DIU2
7 Q
8 ;
9TYPE ;
10 N DA,DIK
11 S DIK="^GMT(142,",DA=5000016 D ^DIK
12 S DIK="^GMT(142,",DA=5000017 D ^DIK
13 ;
14 N IEN,GMTSVAL
15 ;
16 S GMTSVAL(1)="GMTSMHV"
17 S GMTSVAL(2)="07/06/2004@15:06:21"
18 S IEN=+$$FIND1^DIC(811.8,"","KU",.GMTSVAL)
19 I IEN'=0 D
20 . N TEXT
21 . S TEXT="Installing Health Summary item "_GMTSVAL(1)
22 . D BMES^XPDUTL(TEXT)
23 . D INSTALL^PXRMEXSI(IEN)
24 Q
25 ;
26CI ; Component Install
27 N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
28 S GMTSCPS="GECH;GECC;MHVD;MHVS"
29 F GMTSCI=1:1 Q:'$L($P(GMTSCPS,";",GMTSCI)) D
30 . S GMTSCP=$P(GMTSCPS,";",GMTSCI) K GMTSIN
31 . D ARRAY Q:'$D(GMTSIN)
32 . I $L($G(GMTSIN("TIM"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"TIM")=$G(GMTSIN("TIM"))
33 . I $L($G(GMTSIN("OCC"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"OCC")=$G(GMTSIN("OCC"))
34 . S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN),GMTSTOT=+($G(GMTSTOT))+($G(GMTSINST))
35 ; Rebuild Ad Hoc Health Summary Type
36 D:+($G(GMTSTOT))>0 BUILD^GMTSXPD3
37 D LIM
38 I +$$ROK("GMTSXPS1")>0 D
39 . N GMTSHORT S GMTSHORT=1,GMTSINST="",GMTSBLD="GMTS*2.7*63" D SEND^GMTSXPS1
40 D TYPE
41 Q
42ARRAY ; Build Array
43 K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSUB,GMTSVAL,GMTSPDX S GMTSPDX=1,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)
44 F GMTSI=1:1 D Q:'$L(GMTSTXT)
45 . S GMTSTXT="",GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")" X GMTSEX S:$L(GMTSTXT,";")'>3 GMTSTXT="" Q:'$L(GMTSTXT)
46 . S GMTSFLD=$P(GMTSTXT,";",2),GMTSUB=$P(GMTSTXT,";",3),GMTSVAL=$P(GMTSTXT,";",4)
47 . S:$E(GMTSFLD,1)=1&(+GMTSFLD<2) GMTSVAL=$P(GMTSTXT,";",4,5)
48 . S:$E(GMTSFLD,1)=" "!('$L(GMTSFLD)) GMTSTXT="" Q:GMTSTXT=""
49 . S:$L(GMTSFLD)&('$L(GMTSUB)) GMTSIN(GMTSFLD)=GMTSVAL Q:$L(GMTSFLD)&('$L(GMTSUB)) S:$L(GMTSFLD)&($L(GMTSUB)) GMTSIN(GMTSFLD,GMTSUB)=GMTSVAL
50 . S:$G(GMTSFLD)=7&(+($G(GMTSUB))>0) GMTSPDX=0
51 K:+($G(GMTSPDX))=0 GMTSIN("PDX")
52 Q
53LIM ; Limits
54 N GMTSI,GMTST,GMTSO,GMTSA S GMTSI=0 F S GMTSI=$O(GMTSLIM(GMTSI)) Q:+GMTSI=0 D
55 . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",3),GMTST=$G(GMTSLIM(+GMTSI,"TIM")) S:'$L(GMTST) GMTST=$S(GMTSA="Y ":"1Y ",1:"")
56 . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",5),GMTSO=$G(GMTSLIM(+GMTSI,"OCC")) S:'$L(GMTSO) GMTSO=$S(GMTSA="Y ":"10 ",1:"")
57 . D TO^GMTSXPD3(GMTSI,GMTST,GMTSO)
58 Q
59ROK(X) ; Routine OK
60 S X=$G(X) Q:'$L(X) 0 N GMTSEX,GMTSTXT S GMTSEX="S GMTSTXT=$T(+1^"_X_")" X GMTSEX
61 Q:'$L(GMTSTXT) 0 Q 1
62 ;
63GECH ; Referral Categories Component Data
64 ;0;;244
65 ;.01;;GEC Health Factor Category
66 ;1;;HFSEL;GMTSPXFP
67 ;1.1;;1
68 ;1.1;1;HF;PXRHS07(DFN,END,BEG,NUM,.GMTSARY)
69 ;2;;Y
70 ;3;;GECH
71 ;3.5;;0
72 ;4;;Y
73 ;5;;
74 ;6;;
75 ;7;;1
76 ;7;1;9999999.64
77 ;8;;
78 ;9;;Referral Categories
79 ;10;;
80 ;11;;
81 ;12;;
82 ;13;;GEC
83 ;14;;
84 ;TIM;;1Y
85 ;OCC;;10
86 ;
87 Q
88 ;
89GECC ; Referral Count Component Data
90 ;0;;245
91 ;.01;;GEC Completed Referral Count
92 ;1;;PRINT;GMTSGEC
93 ;1.1;;0
94 ;2;;Y
95 ;3;;GECC
96 ;3.5;;0
97 ;4;;Y
98 ;5;;
99 ;6;;
100 ;7;;0
101 ;8;;
102 ;9;;Referral Count
103 ;10;;
104 ;11;;
105 ;12;;
106 ;13;;
107 ;14;;
108 ;PDX;;1
109 ;TIM;;1Y
110 ;OCC;;10
111 ;
112 Q
113 ;
114MHVD ; Component Data
115 ;0;;246
116 ;.01;;MHV REMINDERS DETAIL DISPLAY
117 ;1;;MAIN;GMTSPXHR
118 ;1.1;;0
119 ;2;;
120 ;3;;MHVD
121 ;3.5;;2
122 ;3.5;1;This component display the detail description of all Clinical Reminders that
123 ;3.5;2;are define for MyHealtheVet.
124 ;4;;
125 ;5;;
126 ;6;;
127 ;7;;0
128 ;8;;
129 ;9;;Detail Display
130 ;10;;
131 ;11;;
132 ;12;;
133 ;13;;
134 ;14;;
135 ;PDX;;1
136 ;
137 Q
138 ;
139MHVS ; Component Data
140 ;0;;247
141 ;.01;;MHV REMINDERS SUMMARY DISPLAY
142 ;1;;MAIN;GMTSPXHR
143 ;1.1;;0
144 ;2;;
145 ;3;;MHVS
146 ;3.5;;2
147 ;3.5;1;This component display the summary description of all Clinical Reminders
148 ;3.5;2;that are define for HealtheVet.
149 ;4;;
150 ;5;;
151 ;6;;
152 ;7;;0
153 ;8;;
154 ;9;;Summary Display
155 ;10;;
156 ;11;;
157 ;12;;
158 ;13;;
159 ;14;;
160 ;PDX;;1
161 ;
162 Q
163 ;
Note: See TracBrowser for help on using the repository browser.