ADETUR.m

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

 ;;6.0;ADE;;APRIL 1999

 ;

 D TITLE Q:$D(APCHSQIT)

 D DATE Q:$D(APCHSQIT)

 D LOC Q:$D(APCHSQIT)

 D PROV Q:$D(APCHSQIT)

 D ADA1 Q:$D(APCHSQIT)

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

END Q

TITLE ;------->TITLE

 W !

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

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

DATE ;------->DATE

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

 S ADETXT="DATE:"  D PRT Q

LOC ;------->LOCATION

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

 S ADETXT="LOCATION:" D PRT Q

PROV ;------->PROVIDERS

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

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

 Q

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

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

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

 Q

ADA2 S ADETXT="___________|________|______________________________________________________"

 D PRT

 X ADECKP Q:$D(APCHSQIT)  X:'APCHSNPG ADEBRK

 Q

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

 Q

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

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

 +3        DO TITLE

           IF $DATA(APCHSQIT)

               QUIT 

 +4        DO DATE

           IF $DATA(APCHSQIT)

               QUIT 

 +5        DO LOC

           IF $DATA(APCHSQIT)

               QUIT 

 +6        DO PROV

           IF $DATA(APCHSQIT)

               QUIT 

 +7        DO ADA1

           IF $DATA(APCHSQIT)

               QUIT 

 +8        FOR J=1:1:12

               DO ADA2

               IF $DATA(APCHSQIT)

                   QUIT 

END        QUIT 

TITLE     ;------->TITLE

 +1        WRITE !

 +2        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

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

           DO PRT

           QUIT 

DATE      ;------->DATE

 +1        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

 +2        SET ADETXT="DATE:"

           DO PRT

           QUIT 

LOC       ;------->LOCATION

 +1        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

 +2        SET ADETXT="LOCATION:"

           DO PRT

           QUIT 

PROV      ;------->PROVIDERS

 +1        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

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

               DO PRT

 +3        QUIT 

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

 +1        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

 +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        XECUTE ADECKP

           IF $DATA(APCHSQIT)

               QUIT 

           IF 'APCHSNPG

               XECUTE ADEBRK

 +3        QUIT 

PRT        SET ADENRQ=""

           SET ADEICL=0

           XECUTE ADEPRT

 +1        QUIT