source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSXPS3.m@ 1006

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

initial load of WorldVistAEHR

File size: 5.8 KB
Line 
1GMTSXPS3 ; SLC/KER - Health Summary Status ; 07/18/2000
2 ;;2.7;Health Summary;**35,34,37**;Oct 20, 1995
3 ;
4 Q
5STA ; Status of Components
6 D CLR,EXP,CHK,CLR Q
7CHK ; Check Health Summary Components
8 N GMTSI,GMTSSNM,GMTSSAB,GMTSSDF,GMTSENM,GMTSEAB,GMTSEDF,GMTSCNT,GMTSDUP,X
9 S (GMTSCNT,GMTSI)=0 F S GMTSI=$O(^GMT(142.1,GMTSI)) Q:+GMTSI=0 D IE
10 S GMTSI=0 F S GMTSI=$O(^TMP($J,"GMTSST",GMTSI)) Q:+GMTSI=0 D EI
11 Q
12IE ; Compare Installed to Exported
13 S GMTSSNM=$P($G(^GMT(142.1,GMTSI,0)),"^",1),GMTSSAB=$P($G(^GMT(142.1,GMTSI,0)),"^",4),GMTSSDF=$P($G(^GMT(142.1,GMTSI,0)),"^",6)
14 I GMTSI<501,'$D(^TMP($J,"GMTSST",GMTSI)) S X=" "_GMTSSNM_" not exported ("_GMTSI_")" D CL(X) Q
15 S GMTSENM=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",1),GMTSEAB=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",2),GMTSEDF=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",3)
16 I GMTSI<501,$L(GMTSSNM),GMTSENM="",'$D(^GMT(142.1,"B",GMTSSNM)) S X=" "_GMTSSNM_" not exported" D CL(X) Q
17 I GMTSI<501,$L(GMTSSNM),GMTSENM="",$D(^GMT(142.1,"B",GMTSSNM)) S GMTSDUP=0 D DP Q:+GMTSDUP>1
18 I GMTSI<501,$L(GMTSSNM),GMTSENM="",$D(^GMT(142.1,"B",GMTSSNM)) S X=" "_GMTSSNM_" w/wrong IEN ("_GMTSI_")" D CL(X) Q
19 I GMTSI<501,GMTSSNM'=GMTSENM S X=" "_"Not exported as "_GMTSSNM D CL(X) Q
20 I GMTSI<501,GMTSSDF="P",GMTSEDF'="P" S X=" "_GMTSSNM_" disabled at site" D CL(X) Q
21 I GMTSI<501,GMTSSDF="",GMTSEDF="P" S X=" Disable component "_GMTSSNM_" in use" D CL(X) Q
22 I GMTSI>500,GMTSENM="" S X=" "_GMTSSNM_" (local component)" D CL(X) Q
23 Q
24EI ; Compare Exported to Installed
25 S GMTSSNM=$P($G(^GMT(142.1,GMTSI,0)),"^",1),GMTSSAB=$P($G(^GMT(142.1,GMTSI,0)),"^",4),GMTSSDF=$P($G(^GMT(142.1,GMTSI,0)),"^",6)
26 S GMTSENM=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",1),GMTSEAB=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",2),GMTSEDF=$P($G(^TMP($J,"GMTSST",GMTSI)),"^",3)
27 I GMTSI<501,GMTSSNM="" S X=" "_GMTSENM_" exported/not found" D CL(X) Q
28 I GMTSI<501,GMTSSNM'=GMTSENM S X=" "_GMTSSNM_" exported/modified" D CL(X) Q
29 Q
30DP ; Duplicate Components
31 N X,GMTSI,GMTSIS Q:'$L($G(GMTSSNM))
32 S GMTSIS="",GMTSI=0 F S GMTSI=$O(^GMT(142.1,"B",GMTSSNM,GMTSI)) Q:+GMTSI=0 D
33 . S GMTSDUP=+($G(GMTSDUP))+1,GMTSIS=GMTSIS_"/"_GMTSI
34 S:$E(GMTSIS,1)="/" GMTSIS=$E(GMTSIS,2,$L(GMTSIS)) S:GMTSIS'["/" GMTSDUP=1
35 I +($G(GMTSDUP))>1 S X=" "_GMTSSNM_" duplicated ("_GMTSIS_")" D CL(X)
36 Q
37 ;
38 ; Miscellaneous
39EXP ; Retrieve Exported Components
40 N GMTSEX,GMTSTXT,GMTSI,GMTSCI,GMTSNM,GMTSAB,GMTSDF S GMTSTXT="" F GMTSI=1:1 D Q:'$L(GMTSTXT)
41 . S GMTSTXT="" S GMTSEX="S GMTSTXT=$T(COMP+"_GMTSI_")" X GMTSEX S GMTSTXT=$P(GMTSTXT,";",3,299) Q:GMTSTXT="" S GMTSCI=+($P(GMTSTXT,";",1)) Q:GMTSCI=0 S GMTSNM=$P(GMTSTXT,";",2) Q:GMTSNM=""
42 . S GMTSAB=$P(GMTSTXT,";",3) Q:GMTSAB="" S GMTSDF=$P(GMTSTXT,";",4),^TMP($J,"GMTSST",GMTSCI)=GMTSNM_"^"_GMTSAB_"^"_GMTSDF
43 Q
44CLR ; Clean up
45 K ^TMP($J,"GMTSST") Q
46CL(X) ; Component Status Line
47 S X=$G(X) S:$L(X) GMTSCNT=+($G(GMTSCNT))+1 D:GMTSCNT=1 TL^GMTSXPS1(" Component Status:")
48 D TL^GMTSXPS1(X) Q
49COMP ; Components List (exported)
50 ;;1;ADVERSE REACTIONS/ALLERGIES;ADR
51 ;;2;MAS DEMOGRAPHICS BRIEF;BDEM
52 ;;3;LAB CHEMISTRY & HEMATOLOGY;CH
53 ;;4;CLINICAL WARNINGS;CW
54 ;;5;CRISIS NOTES;CN
55 ;;6;MAS DEMOGRAPHICS;DEM
56 ;;7;DIETETICS;DI
57 ;;8;MAS DISCHARGES;DC
58 ;;9;MAS CLINIC VISITS FUTURE;CVF
59 ;;10;MAS ADMISSIONS/DISCHARGES;ADC
60 ;;11;MAS DISCHARGE DIAGNOSIS;DD
61 ;;12;MAS SURGERIES ICD CODES;OPC
62 ;;14;MAS CLINIC VISITS PAST;CVP
63 ;;15;PROGRESS NOTES;PN
64 ;;16;MAS TRANSFERS;TR
65 ;;17;MAS TREATING SPECIALTY;TS
66 ;;18;LAB CUMULATIVE SELECTED 1;SCL1
67 ;;19;LAB CUMULATIVE SELECTED 2;SCL2
68 ;;20;LAB CUMULATIVE SELECTED 3;SCL3
69 ;;21;LAB CUMULATIVE SELECTED 4;SCL4
70 ;;23;SURGERY REPORTS;SR
71 ;;24;MAS DISABILITIES;DS
72 ;;25;ADVANCE DIRECTIVE;CD
73 ;;26;PROGRESS NOTES BRIEF;BPN
74 ;;27;SURGERY REPORTS BRIEF;BSR
75 ;;28;PHARMACY OUTPATIENT;RXOP
76 ;;29;PHARMACY UNIT DOSE;RXUD
77 ;;30;PHARMACY INTRAVENOUS;RXIV
78 ;;31;LAB ORDERS BRIEF;BLO
79 ;;32;LAB ORDERS;LO
80 ;;33;LAB TESTS SELECTED;SLT
81 ;;34;RADIOLOGY STATUS;RS
82 ;;35;RADIOLOGY PROFILE;RP
83 ;;36;LAB BLOOD TRANSFUSIONS;BT
84 ;;37;LAB MICROBIOLOGY BRIEF;BMIC
85 ;;38;LAB MICROBIOLOGY;MIC
86 ;;43;LAB CUMULATIVE SELECTED;SCLU
87 ;;45;LAB BLOOD AVAILABILITY;BA
88 ;;46;LAB SURGICAL PATHOLOGY;SP
89 ;;47;VITAL SIGNS;VS
90 ;;48;LAB CYTOPATHOLOGY;CY
91 ;;49;VITAL SIGNS SELECTED;SVS
92 ;;50;MAS PROCEDURES ICD CODES;PRC
93 ;;51;MEDICINE SUMMARY;MEDS
94 ;;52;RADIOLOGY IMPRESSION;RI
95 ;;54;ORDERS CURRENT;ORC
96 ;;55;MAS ADT HISTORY;ADT
97 ;;56;RADIOLOGY IMPRESSION SELECTED;SRI
98 ;;57;DISCHARGE SUMMARY;DCS
99 ;;58;DISCHARGE SUMMARY BRIEF;BDS
100 ;;59;PROBLEM LIST ACTIVE;PLA
101 ;;60;PROBLEM LIST INACTIVE;PLI
102 ;;61;PROBLEM LIST ALL;PLL
103 ;;62;SOCIAL WORK;SW
104 ;;64;MAS ADT HISTORY EXPANDED;EADT
105 ;;65;COMPENSATION AND PENSION EXAMS;CP
106 ;;66;MEDICINE ABNORMAL BRIEF;MEDA
107 ;;67;MEDICINE BRIEF REPORT;MEDB
108 ;;68;MEDICINE FULL CAPTIONED;MEDC
109 ;;69;MEDICINE FULL REPORT;MEDF
110 ;;71;MENTAL HEALTH PHYSICAL EXAM;MHPE
111 ;;72;LAB ELECTRON MICROSCOPY;EM
112 ;;73;ADVERSE REACTIONS/ALLERG BRIEF;BADR
113 ;;74;SPINAL CORD DYSFUNCTION;SCD
114 ;;75;VITAL SIGNS OUTPATIENT;VSO
115 ;;76;VITAL SIGNS SELECTED OUTPAT.;SVSO
116 ;;77;SURGERY ONLY REPORTS;SRO
117 ;;78;SURGERY NON OR PROCEDURES;NSR
118 ;;79;SURGERY SEL NON OR PROCEDURES;SNSR
119 ;;201;PCE LOCATION OF HOME;LH;P
120 ;;202;CLINICAL REMINDERS DUE;CR
121 ;;203;PCE HEALTH FACTORS SELECTED;SHF;P
122 ;;204;PCE HEALTH FACTORS ALL;HF;P
123 ;;205;PCE OUTPATIENT ENCOUNTERS;OE
124 ;;206;PCE MEASUREMENTS NON-TABULAR;NTM;P
125 ;;207;PCE IMMUNIZATIONS;IM;P
126 ;;208;PCE SKIN TESTS;ST;P
127 ;;209;PCE MEASUREMENTS SELECTED;MEAS;P
128 ;;212;PCE EDUCATION;ED
129 ;;213;PCE EDUCATION LATEST;EDL
130 ;;220;PCE OUTPATIENT DIAGNOSIS;OD;P
131 ;;230;PCE EXAMS LATEST;EXAM;P
132 ;;231;PCE TREATMENTS PROVIDED;TP;P
133 ;;232;CLINICAL REMINDERS MAINTENANCE;CM
134 ;;233;PROGRESS NOTES SELECTED;SPN
135 ;;234;CLINICAL REMINDERS SUMMARY;CRS
136 ;;235;MAG IMAGING;MAGI
137 ;;236;ONCOLOGY;ONC
138 ;;237;VITAL SIGNS DETAILED DISPLAY;VSD
139 ;;238;GLOBAL ASSESSMENT FUNCTIONING;GAF
Note: See TracBrowser for help on using the repository browser.