1 | GMTSADH4 ; SLC/SBW - Ad Hoc Summary Driver (Cont) ; 07/18/2000
|
---|
2 | ;;2.7;Health Summary;*37*;Oct 20, 1995
|
---|
3 | ;
|
---|
4 | GETOCC ; 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
|
---|
14 | GETIME ; 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
|
---|
24 | GETNAME ; 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
|
---|
34 | GETHOSP ; 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
|
---|
44 | GETICD ; 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
|
---|
54 | GETPROV ; 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
|
---|
64 | GETCPTM ; 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
|
---|