source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSADH4.m@ 1806

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

initial load of WorldVistAEHR

File size: 2.1 KB
RevLine 
[613]1GMTSADH4 ; SLC/SBW - Ad Hoc Summary Driver (Cont) ; 07/18/2000
2 ;;2.7;Health Summary;*37*;Oct 20, 1995
3 ;
4GETOCC ; Gets Occurrence Limit, where applicable
5 N DIR,X,Y
6 S DIR(0)="142.01,2O",DIR("A")="OCCURRENCE LIMIT",DIR("B")=$P(GMTSEG(SBS),U,3)
7 ; DBIA 10026 call ^DIR
8 D ^DIR
9 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
10 I $D(DUOUT) Q
11 I X["^" W " ??" G GETOCC
12 S $P(GMTSEG(SBS),U,3)=Y
13 Q
14GETIME ; Gets Time Limit, where applicable
15 N DIR,X,Y
16 S DIR(0)="142.01,3O",DIR("A")="TIME LIMIT",DIR("B")=$P(GMTSEG(SBS),U,4)
17 ; DBIA 10026 call ^DIR
18 D ^DIR
19 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
20 I $D(DUOUT) Q
21 I X["^" W " ??" G GETIME
22 S $P(GMTSEG(SBS),U,4)=Y
23 Q
24GETNAME ; Gets Header Name for Component
25 N DIR,X,Y
26 S DIR(0)="142.01,5O" S:$L($P(GMTSEG(SBS),U,5)) DIR("B")=$P(GMTSEG(SBS),U,5)
27 ; DBIA 10026 call ^DIR
28 D ^DIR
29 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
30 I $D(DUOUT) Q
31 I X["^" W " ??" G GETIME
32 S $P(GMTSEG(SBS),U,5)=Y
33 Q
34GETHOSP ; Gets Hospital Location displayed, where applicable
35 N DIR,X,Y
36 S DIR(0)="142.01,6O",DIR("A")="Hospital Location displayed",DIR("B")=$P(GMTSEG(SBS),U,6)
37 ; DBIA 10026 call ^DIR
38 D ^DIR
39 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
40 I $D(DUOUT) Q
41 I X["^" W " ??" G GETHOSP
42 S $P(GMTSEG(SBS),U,6)=Y
43 Q
44GETICD ; Gets ICD Text displayed, where applicable
45 N DIR,X,Y
46 S DIR(0)="142.01,7O",DIR("A")="ICD Text displayed",DIR("B")=$P(GMTSEG(SBS),U,7)
47 ; DBIA 10026 call ^DIR
48 D ^DIR
49 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
50 I $D(DUOUT) Q
51 I X["^" W " ??" G GETICD
52 S $P(GMTSEG(SBS),U,7)=Y
53 Q
54GETPROV ; Gets Provider Narrative displayed, where applicable
55 N DIR,X,Y
56 S DIR(0)="142.01,8O",DIR("A")="Provider Narrative displayed",DIR("B")=$P(GMTSEG(SBS),U,8)
57 ; DBIA 10026 call ^DIR
58 D ^DIR
59 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
60 I $D(DUOUT) Q
61 I X["^" W " ??" G GETPROV
62 S $P(GMTSEG(SBS),U,8)=Y
63 Q
64GETCPTM ; Gets CPT Modifier displayed, where applicable
65 N DIR,X,Y
66 S DIR(0)="142.01,9O",DIR("A")="CPT Modifier displayed",DIR("B")=$P(GMTSEG(SBS),U,8) S:DIR("B")="" DIR("B")="Y"
67 ; DBIA 10026 call ^DIR
68 D ^DIR
69 S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
70 I $D(DUOUT) Q
71 I X["^" W " ??" G GETCPTM
72 S $P(GMTSEG(SBS),U,9)=Y
73 Q
Note: See TracBrowser for help on using the repository browser.