- 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 Feb 18, 2025@23:23:22 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
