GMTSADH4 ; SLC/SBW - Ad Hoc Summary Driver (Cont) ; 07/18/2000
;;2.7;Health Summary;*37*;Oct 20, 1995
;
GETOCC ; Gets Occurrence Limit, where applicable
N DIR,X,Y
S DIR(0)="142.01,2O",DIR("A")="OCCURRENCE LIMIT",DIR("B")=$P(GMTSEG(SBS),U,3)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETOCC
S $P(GMTSEG(SBS),U,3)=Y
Q
GETIME ; Gets Time Limit, where applicable
N DIR,X,Y
S DIR(0)="142.01,3O",DIR("A")="TIME LIMIT",DIR("B")=$P(GMTSEG(SBS),U,4)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETIME
S $P(GMTSEG(SBS),U,4)=Y
Q
GETNAME ; Gets Header Name for Component
N DIR,X,Y
S DIR(0)="142.01,5O" S:$L($P(GMTSEG(SBS),U,5)) DIR("B")=$P(GMTSEG(SBS),U,5)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETIME
S $P(GMTSEG(SBS),U,5)=Y
Q
GETHOSP ; Gets Hospital Location displayed, where applicable
N DIR,X,Y
S DIR(0)="142.01,6O",DIR("A")="Hospital Location displayed",DIR("B")=$P(GMTSEG(SBS),U,6)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETHOSP
S $P(GMTSEG(SBS),U,6)=Y
Q
GETICD ; Gets ICD Text displayed, where applicable
N DIR,X,Y
S DIR(0)="142.01,7O",DIR("A")="ICD Text displayed",DIR("B")=$P(GMTSEG(SBS),U,7)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETICD
S $P(GMTSEG(SBS),U,7)=Y
Q
GETPROV ; Gets Provider Narrative displayed, where applicable
N DIR,X,Y
S DIR(0)="142.01,8O",DIR("A")="Provider Narrative displayed",DIR("B")=$P(GMTSEG(SBS),U,8)
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETPROV
S $P(GMTSEG(SBS),U,8)=Y
Q
GETCPTM ; Gets CPT Modifier displayed, where applicable
N DIR,X,Y
S DIR(0)="142.01,9O",DIR("A")="CPT Modifier displayed",DIR("B")=$P(GMTSEG(SBS),U,8) S:DIR("B")="" DIR("B")="Y"
; DBIA 10026 call ^DIR
D ^DIR
S:$D(DTOUT) DIROUT=1 I $D(DIROUT) Q
I $D(DUOUT) Q
I X["^" W " ??" G GETCPTM
S $P(GMTSEG(SBS),U,9)=Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSADH4 2203 printed Oct 16, 2024@17:57:47 Page 2
GMTSADH4 ; SLC/SBW - Ad Hoc Summary Driver (Cont) ; 07/18/2000
+1 ;;2.7;Health Summary;*37*;Oct 20, 1995
+2 ;
GETOCC ; Gets Occurrence Limit, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,2O"
SET DIR("A")="OCCURRENCE LIMIT"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,3)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETOCC
+8 SET $PIECE(GMTSEG(SBS),U,3)=Y
+9 QUIT
GETIME ; Gets Time Limit, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,3O"
SET DIR("A")="TIME LIMIT"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,4)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETIME
+8 SET $PIECE(GMTSEG(SBS),U,4)=Y
+9 QUIT
GETNAME ; Gets Header Name for Component
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,5O"
if $LENGTH($PIECE(GMTSEG(SBS),U,5))
SET DIR("B")=$PIECE(GMTSEG(SBS),U,5)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETIME
+8 SET $PIECE(GMTSEG(SBS),U,5)=Y
+9 QUIT
GETHOSP ; Gets Hospital Location displayed, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,6O"
SET DIR("A")="Hospital Location displayed"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,6)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETHOSP
+8 SET $PIECE(GMTSEG(SBS),U,6)=Y
+9 QUIT
GETICD ; Gets ICD Text displayed, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,7O"
SET DIR("A")="ICD Text displayed"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,7)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETICD
+8 SET $PIECE(GMTSEG(SBS),U,7)=Y
+9 QUIT
GETPROV ; Gets Provider Narrative displayed, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,8O"
SET DIR("A")="Provider Narrative displayed"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,8)
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETPROV
+8 SET $PIECE(GMTSEG(SBS),U,8)=Y
+9 QUIT
GETCPTM ; Gets CPT Modifier displayed, where applicable
+1 NEW DIR,X,Y
+2 SET DIR(0)="142.01,9O"
SET DIR("A")="CPT Modifier displayed"
SET DIR("B")=$PIECE(GMTSEG(SBS),U,8)
if DIR("B")=""
SET DIR("B")="Y"
+3 ; DBIA 10026 call ^DIR
+4 DO ^DIR
+5 if $DATA(DTOUT)
SET DIROUT=1
IF $DATA(DIROUT)
QUIT
+6 IF $DATA(DUOUT)
QUIT
+7 IF X["^"
WRITE " ??"
GOTO GETCPTM
+8 SET $PIECE(GMTSEG(SBS),U,9)=Y
+9 QUIT
