| 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
|
|---|
