BHSDTUR.m

BHSDTUR ;IHS/CIA/MGH - Health Summary for TURNAROUND FORM file ;17-Mar-2006 10:36;MGH

 ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 ;===================================================================

 ;Taken from ADETUR

 ;IHS/HQT/MJL  - TURNAROUND FORM ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;VA health summary for dental forms

 ;====================================================================

 ;

DO ;  EP

 N J

 D TITLE Q:$D(GMTSQIT)

 D DATE Q:$D(GMTSQIT)

 D LOC Q:$D(GMTSQIT)

 D PROV Q:$D(GMTSQIT)

 D ADA1 Q:$D(GMTSQIT)

 F J=1:1:12 D ADA2 Q:$D(GMTSQIT)

END Q

TITLE ;------->TITLE

 W !

 D CKP^GMTSUP Q:$D(GMTSQIT)

 S ADETXT="***TURNAROUND FORM***" D PRT Q

DATE ;------->DATE

 D CKP^GMTSUP Q:$D(GMTSQIT)

 S ADETXT="DATE:"  D PRT Q

LOC ;------->LOCATION

 D CKP^GMTSUP Q:$D(GMTSQIT)

 S ADETXT="LOCATION:" D PRT Q

PROV ;------->PROVIDERS

 D CKP^GMTSUP Q:$D(GMTSQIT)

 F ADETXT="REPORTING DENTIST:","AUXILARY:" D PRT

 Q

ADA1 ;------->ADA CODES

 D CKP^GMTSUP Q:$D(GMTSQIT)

 S ADETXT="ADA CODE:   QTY:     OP SITE(S):",ADENRQ="",ADEICL=0 X ADEPRT

 Q

ADA2 S ADETXT="___________|________|______________________________________________________"

 D PRT

 D CKP^GMTSUP Q:$D(GMTSQIT)

 Q

PRT S ADENRQ="",ADEICL=0 X ADEPRT

 Q

BHSDTUR   ;IHS/CIA/MGH - Health Summary for TURNAROUND FORM file ;17-Mar-2006 10:36;MGH

 +1       ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 +2       ;===================================================================

 +3       ;Taken from ADETUR

 +4       ;IHS/HQT/MJL  - TURNAROUND FORM ;  [ 03/24/1999   9:04 AM ]

 +5       ;;6.0;ADE;;APRIL 1999

 +6       ;VA health summary for dental forms

 +7       ;====================================================================

 +8       ;

DO        ;  EP

 +1        NEW J

 +2        DO TITLE

           IF $DATA(GMTSQIT)

               QUIT 

 +3        DO DATE

           IF $DATA(GMTSQIT)

               QUIT 

 +4        DO LOC

           IF $DATA(GMTSQIT)

               QUIT 

 +5        DO PROV

           IF $DATA(GMTSQIT)

               QUIT 

 +6        DO ADA1

           IF $DATA(GMTSQIT)

               QUIT 

 +7        FOR J=1:1:12

               DO ADA2

               IF $DATA(GMTSQIT)

                   QUIT 

END        QUIT 

TITLE     ;------->TITLE

 +1        WRITE !

 +2        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +3        SET ADETXT="***TURNAROUND FORM***"

           DO PRT

           QUIT 

DATE      ;------->DATE

 +1        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +2        SET ADETXT="DATE:"

           DO PRT

           QUIT 

LOC       ;------->LOCATION

 +1        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +2        SET ADETXT="LOCATION:"

           DO PRT

           QUIT 

PROV      ;------->PROVIDERS

 +1        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +2        FOR ADETXT="REPORTING DENTIST:","AUXILARY:"

               DO PRT

 +3        QUIT 

ADA1      ;------->ADA CODES

 +1        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +2        SET ADETXT="ADA CODE:   QTY:     OP SITE(S):"

           SET ADENRQ=""

           SET ADEICL=0

           XECUTE ADEPRT

 +3        QUIT 

ADA2       SET ADETXT="___________|________|______________________________________________________"

 +1        DO PRT

 +2        DO CKP^GMTSUP

           IF $DATA(GMTSQIT)

               QUIT 

 +3        QUIT 

PRT        SET ADENRQ=""

           SET ADEICL=0

           XECUTE ADEPRT

 +1        QUIT