AZXZVSIT.m

AZXZVSIT ;REPORT -AHCCCS VISIT COUNTS BY PROVIDER (APC) [ 05/01/95   1:25 PM ]

 ;06/02/92  JOHN H. LYNCH

 ;

 ;THIS PROGRAM SEARCHES THE MEDICAID ELIGIBLE

 ;FILE AND PRINTS OUT INFORMATION USING THE PATIENT

 ;NAME TO PULL INFORMATION FROM THE APC DATA FILE.

 ;

 ;PATIENT NAME     (MEDICAID ELIGIBLE)

 ;SSN              (APC DATA)

 ;DATE OF SERVICE  (APC DATA)

 ;PRIMARY PROVIDER (APC DATA)

 ;MEDICAID NUMBER  (MEDICAID ELIGLBLE)

 ;CHART NUMBER     (APC DATA)

 ;

MAIN ;AZXZVSIT PROGRAM CONTROL     

 ;INITIALIZE LOCAL VARIABLES

 ;DELETE COMMENT ONLY IF RUNNING THIS ROUTINE IN PROGRAMMER MODE

 D ^XBKSET         ;INITIALIZE SYSTEM VARIABLES

 W @IOF      ;CLEAR SCREEN

 W !!!,"Visit Counts by Provider Report (APC)..."

LBDATE ;READ USER INPUT ON LOWER BOUND DATE 

 R !!,"Please enter the Lower Date: ",LDATE

 ;IF "^" QUIT AND RETURN TO PREVIOUS MENU

 I (LDATE="^")!(LDATE="") Q

 ;IF "?" GIVE HELP AND RETURN TO LDATE PROMPT

 I (LDATE="?") W !!,"Enter Lower Boundary Date to search on for report." G LBDATE

 I (LDATE="??") W !!,"Enter Lower Boundary Date to search on for report."

 I (LDATE="??") W !!,"Date Formats:",?15,"MM/DD/YY",?29,"- STANDARD",!,?15,"T",?29,"- TODAY",!,?15,"T-###",?29,"- TODAY MINUS ### DAYS",!,?15,"NOW",?29,"- CURRENT DATE",!,?15,"MON ##, ####",?29,"- MON DAY, YEAR" G LBDATE

 I (LDATE="???") W !!,"Enter Lower Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input"

 I (LDATE="???") W !!,?15,"MM/DD/YY",?29,"- 01/01/92",!,?15,"T",?29,"- T",!,?15,"T-###",?29,"- T-10",!,?15,"NOW",?29,"- NOW",!,?15,"MON ##, ####",?29,"- SEP 01, 1992" G LBDATE

 ;CHECK TO SEE IF A VALID DATE HAS BEEN ENTERED

 I (LDATE?1.2N0.1"/"1.2N0.1"/"0.4N)!(LDATE?1"T"1"-"1.3N)!(LDATE="T")!(LDATE="NOW")!(LDATE?3A1" "1.2N1","1" "4N) G LBDATE2

 W !!,"Illegal date; check format and re-enter lower boundary date.",!,*7 

 G LBDATE

LBDATE2 ;CONVERT LDATE TO NEW FORMATS

 S X=LDATE   ;X = DATE TO CONVERT USING ^%DT

 D CONVERT   ;CONVERT USER DATE TO FILEMAN DATE FORMAT

 ;DATE FORMAT WAS ILLEGAL

 I Y<1 W !!,"Illegal date; check format and re-enter lower boundary date.",!,*7 G LBDATE

 S LDATE=Y

 S Y=LDATE D DD^%DT S LDATE1=Y   ;LDATE1 = DATE IN USER FORMAT

UBDATE ;READ USER INPUT ON UPPER BOUND DATE 

 R !!,"Please enter the Upper Date: ",UDATE

 ;IF "^" RETURN TO PREVIOUS PROMPT (LBDATE)

 I (UDATE="^")!(UDATE="") G LBDATE

 ;IF "?" GIVE HELP AND RETURN TO UDATE PROMPT

 I (UDATE="?") W !!,"Enter Upper Boundary Date to search on for report." G UBDATE

 I (UDATE="??") W !!,"Enter Upper Boundary Date to search on for report."

 I (UDATE="??") W !!,"Date Formats:",?15,"MM/DD/YY",?29,"- STANDARD",!,?15,"T",?29,"- TODAY",!,?15,"T-###",?29,"- TODAY MINUS ### DAYS",!,?15,"NOW",?29,"- CURRENT DATE",!,?15,"MON ##, ####",?29,"- MON DAY, YEAR" G UBDATE

 I (UDATE="???") W !!,"Enter Upper Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input"

 I (UDATE="???") W !!,?15,"MM/DD/YY",?29,"- 01/01/92",!,?15,"T",?29,"- T",!,?15,"T-###",?29,"- T-10",!,?15,"NOW",?29,"- NOW",!,?15,"MON ##, ####",?29,"- SEP 01, 1992" G UBDATE

 ;CHECK TO SEE IF A VALID DATE HAS BEEN ENTERED

 I (UDATE?1.2N0.1"/"1.2N0.1"/"0.4N)!(UDATE?1"T"1"-"1.3N)!(UDATE="T")!(UDATE="NOW")!(UDATE?3A1" "1.2N1","1" "4N) G UBDATE2

 W !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 

 G UBDATE

UBDATE2 ;CONVERT UDATE TO NEW FORMATS

 S X=UDATE   ;X = DATE TO CONVERT USING ^%DT

 D CONVERT   ;CONVERT USER DATE TO FILEMAN DATE FORMAT

 W !         ;GIVE AN EXTRA LINE FEED

 ;DATE FORMAT WAS ILLEGAL

 I Y<1 W !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 G UBDATE

 S UDATE=Y

 S Y=UDATE D DD^%DT S UDATE1=Y   ;UDATE1 = DATE IN USER FORMAT

 ;CHECK TO SEE IF UDATE > LDATE

 I (UDATE<LDATE) W !!,"Upper boundary date must be greater than or equal to lower boundary date.",!,*7 G UBDATE

 D GETPNUM   ;RETRIEVE DATA FROM MEDICAID ELIGIBLE

 ;KILL LOCAL VARIABLES

 Q

GETPNUM ;RETRIEVE DATA FROM "MEDICAID ELIGIBLE"

 ;INITIALIZE LOCAL VARIABLES

 S DEV=$I              ;ORIG. DEVICE

 S PATNUM=0            ;PATIENT NUMBER

 S INUM2=0

 ;CALL DEVICE

 ;IS DEVICE VALID (NO, ABORT REPORT)

 ;S %ZIS="FQN" D ^%ZIS K %ZIS   ;CHECK FOR DEVICE CHARACTERISTICS

 ;I (IO="")!(IO="^") W !,*7,"No device specified." H 2 G MAIN

 ;I IO=$I,$D(IO("Q")) R !,"Do you really want me to queue to this device? NO//",YN I ("Nn"[$E(X,1))!(YN="") K IO("Q") G GETPNUM

 ;I $D(IO("Q")) K IO("Q") S ZTRTN="SETUP^AZXZVSIT",ZTDESC="AHCCCS Visit Counts by Provider (APC)" F G="LDATE","UDATE","LDATE1","UDATE1","PATNUM","INUM2","IO","DEV" S ZTSAVE(G)=""

 ;I  D ^%ZTLOAD Q

 ;S IOP=IO D ^%ZIS I 'POP G SETUP

 ;W !,"Device ",IO," busy." G GETPNUM

 D ^%ZIS U IO

SETUP ;SETUP FOR CALL FROM TASKMAN (OR DIRECT) 

 ;INITIALIZE LOCAL VARIABLES

 S DFN=0           ;INTERNAL ENTRY NUMBER (COUNTER)

 S COUNTER=1       ;LINES PER PAGE COUNTER

 S COUNTER2=0      ;TOTAL # OF VISITS COUNTER

 S PAGE=0          ;INITIALIZE PAGE #

 S CHECK=1         ;INITIALIZE CHECK VARIABLE (PVDRCHK=PVDRNAME?)

 S RET=""          ;RET = IF IO=DEV CHECK FOR "^" TO EXIT

 F  S INUM=0,INUM2=0,PATNUM=$O(^AUPNMCD("B",PATNUM)) Q:PATNUM=""  S INUM=$O(^AUPNMCD("B",PATNUM,INUM)) F  S INUM2=$O(^AAPCRCDS("B",PATNUM,INUM2))  Q:INUM2=""  D CHKDATE

 ;CALL GETDATA

 D GETDATA             ;THE DEVICE DECIDES WHERE THE DATA GOES

 ;CLOSE DEVICE

 X ^%ZIS("C")

 ;KILL OFF LOCAL AND TEMPORARY VARIABLES

 K ^AZXZTMP

 Q

CONVERT ;CONVERT USER DATES TO FILEMAN DATE FORMAT

 ;SET LOCAL VARIABLES

 S %DT="EX"       ;E=ECHO ANSWER;X=EXACT DATE

 D ^%DT            ;VALUE RETURNED IN Y

 Q

CHKDATE ;CHECK FOR A VALID DATE (WITHIN LDATE & UDATE)

 ;INITIALIZE LOCAL VARIABLES

 S FLAG=0          ;1 = VALID DATE, 0 = INVALID DATE

 S DATE=$P(^AAPCRCDS(INUM2,0),U,3)

 ;SET FLAG=1 IF DATE IS WITHING LDATE & UDATE (DO WRITETMP)

 I (DATE>(LDATE-1))&(DATE<(UDATE+1)) S FLAG=1

 I FLAG=1 D GETMED D GETAPC D GETPVDR S Y=DATE D DD^%DT S DATE=Y D WRITETMP

 Q

GETMED ;GET THE MEDICAID NUMBER FROM "MEDICAID ELIGIBLE"

 S MEDNUM=$P(^AUPNMCD(INUM,0),U,3)

 Q

GETAPC ;RETRIEVE DATA FROM "APC DATA"   

 S SSN=$P(^AAPCRCDS(INUM2,0),U,6)       ;SOCIAL SECURITY NUMBER

 S PVDRNUM=$P(^AAPCRCDS(INUM2,0),U,14)  ;PROVIDER NUMBER

 S CHARTNUM=$P(^AAPCRCDS(INUM2,0),U,5)  ;CHART NUMBER

 Q

GETPVDR ;GET THE ACTUAL PROVIDER NAME USING PROVIDER FILE (PVDRNUM)

 S PVDRNAME=$P(^DIC(7,PVDRNUM,0),U,1)

 Q

WRITETMP ;WRITE DATA OUT TO TEMPORARY GLOBAL (^AZXZTMP)

 S DFN=DFN+1         ;INTERNAL ENTRY NUMBER (COUNTER)

 S ^AZXZTMP(DFN)=PVDRNAME_"^"_PATNUM_"^"_SSN_"^"_DATE_"^"_MEDNUM_"^"_CHARTNUM

 S ^AZXZTMP("B",PVDRNAME,PATNUM,DFN)=""

 Q

GETDATA ;GETDATA GATHERS ALL DATA, CALLS PRINT TO PRINT TO DEVICE

 ;INITIALIZE LOCAL VARIABLES

 S PVDR=""     ;PVDR = PROVIDER IN "B" CROSS-REF

 S PAT=""      ;PAT  = PATIENT IN "B" CROSS-REF

 S INUM=0      ;INUM = INTERNAL ENTRY # IN "B" CROSS-REF

 F  S PVDR=$O(^AZXZTMP("B",PVDR)) Q:PVDR=""   S PAT="" F  S PAT=$O(^AZXZTMP("B",PVDR,PAT)) Q:PAT=""  S INUM=0 F  S INUM=$O(^AZXZTMP("B",PVDR,PAT,INUM)) Q:'INUM  D SETVARS D PRINT I RET="^" S PVDR="ZZZZZZZZ" Q

 I COUNTER2,RET="" W !!,?49,"Total Number of Visits:  ",$J(COUNTER2,6,0),!,"********************************************************************************",!

 I IO=DEV,RET="" R !,"Press return to continue...",RET W @IOF R !,"Do you want to print another report? YES//",YN I ("Yy"[$E(X,1))!(YN="") G MAIN

 Q

SETVARS ;SET CURRENT VALUES OF VARIABLES TO PRINT OUT  

 S PVDRNAME=$P(^AZXZTMP(INUM),U,1)

 S PATNUM=$P(^AZXZTMP(INUM),U,2)

 S SSN=$P(^AZXZTMP(INUM),U,3)

 S DATE=$P(^AZXZTMP(INUM),U,4)

 S MEDNUM=$P(^AZXZTMP(INUM),U,5)

 S CHARTNUM=$P(^AZXZTMP(INUM),U,6)

 S SITE=$P(^DIC(4,DUZ(2),0),U,1)      ;DUZ(2) = CURRENT FACILITY

 Q

PRINT ;PRINT ALL DATA TO DEVICE    

 I CHECK=1 S PVDRCHK=PVDRNAME  ;CHECK = ONLY ON FIRST TIME THRU

 I (CHECK=1),(IO=DEV) W @IOF    ;CLEAR SCREEN IF IO=DEV, 1ST TIME

 I COUNTER=1 W !,"********************************************************************************" S PAGE=PAGE+1

 I COUNTER=1 W !,"AHCCCS Visit Counts by Provider (APC)       From: ",LDATE1,"  To: ",UDATE1,!,SITE,?68,"Page: ",PAGE,!,"********************************************************************************" S COUNTER=COUNTER+4

 I PVDRCHK'=PVDRNAME W !!,?49,"Total Number of Visits:  ",$J(COUNTER2,6,0),!,"********************************************************************************",! S COUNTER2=0,COUNTER=COUNTER+4 

 I (COUNTER=5)&(CHECK'=1) W !,"Primary Provider:  ",PVDRNAME,?73,"(CON'T)" S COUNTER=COUNTER+1

 I (PVDRCHK'=PVDRNAME)!(CHECK=1) W !,"Primary Provider:  ",PVDRNAME S COUNTER=COUNTER+1

 I (COUNTER=6)!(PVDRCHK'=PVDRNAME)!(CHECK=1) W !!,"Patient  ","Social Security  ","Date of Service  ","Medicaid Number  ","Chart Number" S CHECK=CHECK+1,COUNTER=COUNTER+2

 I (COUNTER=8)!(PVDRCHK'=PVDRNAME) W ! S COUNTER=COUNTER+1,PVDRCHK=PVDRNAME

 W !,PATNUM,?9,SSN,?26,DATE,?43,MEDNUM,?61,CHARTNUM S COUNTER=COUNTER+1

 S COUNTER2=COUNTER2+1      ;INCREMENT # OF VISITS COUNTER

 I IO=DEV,COUNTER>18 R !,"Press return to continue...",RET S COUNTER=1 W @IOF

 I IO'=DEV,COUNTER>57 S COUNTER=1 W #

 Q

AZXZVSIT  ;REPORT -AHCCCS VISIT COUNTS BY PROVIDER (APC) [ 05/01/95   1:25 PM ]

 +1       ;06/02/92  JOHN H. LYNCH

 +2       ;

 +3       ;THIS PROGRAM SEARCHES THE MEDICAID ELIGIBLE

 +4       ;FILE AND PRINTS OUT INFORMATION USING THE PATIENT

 +5       ;NAME TO PULL INFORMATION FROM THE APC DATA FILE.

 +6       ;

 +7       ;PATIENT NAME     (MEDICAID ELIGIBLE)

 +8       ;SSN              (APC DATA)

 +9       ;DATE OF SERVICE  (APC DATA)

 +10      ;PRIMARY PROVIDER (APC DATA)

 +11      ;MEDICAID NUMBER  (MEDICAID ELIGLBLE)

 +12      ;CHART NUMBER     (APC DATA)

 +13      ;

MAIN      ;AZXZVSIT PROGRAM CONTROL     

 +1       ;INITIALIZE LOCAL VARIABLES

 +2  +3   ;DELETE COMMENT ONLY IF RUNNING THIS ROUTINE IN PROGRAMMER MODE

 +4       ;INITIALIZE SYSTEM VARIABLES

           DO ^XBKSET

 +5  +6   ;CLEAR SCREEN

           WRITE @IOF

 +7        WRITE !!!,"Visit Counts by Provider Report (APC)..."

LBDATE    ;READ USER INPUT ON LOWER BOUND DATE 

 +1        READ !!,"Please enter the Lower Date: ",LDATE

 +2       ;IF "^" QUIT AND RETURN TO PREVIOUS MENU

 +3        IF (LDATE="^")!(LDATE="")

               QUIT 

 +4  +5   ;IF "?" GIVE HELP AND RETURN TO LDATE PROMPT

 +6        IF (LDATE="?")

               WRITE !!,"Enter Lower Boundary Date to search on for report."

               GOTO LBDATE

 +7        IF (LDATE="??")

               WRITE !!,"Enter Lower Boundary Date to search on for report."

 +8        IF (LDATE="??")

               WRITE !!,"Date Formats:",?15,"MM/DD/YY",?29,"- STANDARD",!,?15,"T",?29,"- TODAY",!,?15,"T-###",?29,"- TODAY MINUS ### DAYS",!,?15,"NOW",?29,"- CURRENT DATE",!,?15,"MON ##, ####",?29,"- MON DAY, YEAR"

               GOTO LBDATE

 +9        IF (LDATE="???")

               WRITE !!,"Enter Lower Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input"

 +10       IF (LDATE="???")

               WRITE !!,?15,"MM/DD/YY",?29,"- 01/01/92",!,?15,"T",?29,"- T",!,?15,"T-###",?29,"- T-10",!,?15,"NOW",?29,"- NOW",!,?15,"MON ##, ####",?29,"- SEP 01, 1992"

               GOTO LBDATE

 +11  +12 ;CHECK TO SEE IF A VALID DATE HAS BEEN ENTERED

 +13       IF (LDATE?1.2N0.1"/"1.2N0.1"/"0.4N)!(LDATE?1"T"1"-"1.3N)!(LDATE="T")!(LDATE="NOW")!(LDATE?3A1" "1.2N1","1" "4N)

               GOTO LBDATE2

 +14       WRITE !!,"Illegal date; check format and re-enter lower boundary date.",!,*7

 +15       GOTO LBDATE

 +16 LBDATE2 ;CONVERT LDATE TO NEW FORMATS

 +1       ;X = DATE TO CONVERT USING ^%DT

           SET X=LDATE

 +2       ;CONVERT USER DATE TO FILEMAN DATE FORMAT

           DO CONVERT

 +3       ;DATE FORMAT WAS ILLEGAL

 +4        IF Y<1

               WRITE !!,"Illegal date; check format and re-enter lower boundary date.",!,*7

               GOTO LBDATE

 +5        SET LDATE=Y

 +6       ;LDATE1 = DATE IN USER FORMAT

           SET Y=LDATE

           DO DD^%DT

           SET LDATE1=Y

 +7 UBDATE ;READ USER INPUT ON UPPER BOUND DATE 

 +1        READ !!,"Please enter the Upper Date: ",UDATE

 +2       ;IF "^" RETURN TO PREVIOUS PROMPT (LBDATE)

 +3        IF (UDATE="^")!(UDATE="")

               GOTO LBDATE

 +4       ;IF "?" GIVE HELP AND RETURN TO UDATE PROMPT

 +5        IF (UDATE="?")

               WRITE !!,"Enter Upper Boundary Date to search on for report."

               GOTO UBDATE

 +6        IF (UDATE="??")

               WRITE !!,"Enter Upper Boundary Date to search on for report."

 +7        IF (UDATE="??")

               WRITE !!,"Date Formats:",?15,"MM/DD/YY",?29,"- STANDARD",!,?15,"T",?29,"- TODAY",!,?15,"T-###",?29,"- TODAY MINUS ### DAYS",!,?15,"NOW",?29,"- CURRENT DATE",!,?15,"MON ##, ####",?29,"- MON DAY, YEAR"

               GOTO UBDATE

 +8        IF (UDATE="???")

               WRITE !!,"Enter Upper Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input"

 +9        IF (UDATE="???")

               WRITE !!,?15,"MM/DD/YY",?29,"- 01/01/92",!,?15,"T",?29,"- T",!,?15,"T-###",?29,"- T-10",!,?15,"NOW",?29,"- NOW",!,?15,"MON ##, ####",?29,"- SEP 01, 1992"

               GOTO UBDATE

 +10  +11 ;CHECK TO SEE IF A VALID DATE HAS BEEN ENTERED

 +12       IF (UDATE?1.2N0.1"/"1.2N0.1"/"0.4N)!(UDATE?1"T"1"-"1.3N)!(UDATE="T")!(UDATE="NOW")!(UDATE?3A1" "1.2N1","1" "4N)

               GOTO UBDATE2

 +13       WRITE !!,"Illegal date; check format and re-enter upper boundary date.",!,*7

 +14       GOTO UBDATE

 +15 UBDATE2 ;CONVERT UDATE TO NEW FORMATS

 +1       ;X = DATE TO CONVERT USING ^%DT

           SET X=UDATE

 +2       ;CONVERT USER DATE TO FILEMAN DATE FORMAT

           DO CONVERT

 +3       ;GIVE AN EXTRA LINE FEED

           WRITE !

 +4       ;DATE FORMAT WAS ILLEGAL

 +5        IF Y<1

               WRITE !!,"Illegal date; check format and re-enter upper boundary date.",!,*7

               GOTO UBDATE

 +6        SET UDATE=Y

 +7       ;UDATE1 = DATE IN USER FORMAT

           SET Y=UDATE

           DO DD^%DT

           SET UDATE1=Y

 +8  +9   ;CHECK TO SEE IF UDATE > LDATE

 +10       IF (UDATE<LDATE)

               WRITE !!,"Upper boundary date must be greater than or equal to lower boundary date.",!,*7

               GOTO UBDATE

 +11  +12 ;RETRIEVE DATA FROM MEDICAID ELIGIBLE

           DO GETPNUM

 +13  +14 ;KILL LOCAL VARIABLES

 +15       QUIT 

 +16 GETPNUM ;RETRIEVE DATA FROM "MEDICAID ELIGIBLE"

 +1       ;INITIALIZE LOCAL VARIABLES

 +2       ;ORIG. DEVICE

           SET DEV=$IO

 +3       ;PATIENT NUMBER

           SET PATNUM=0

 +4        SET INUM2=0

 +5  +6   ;CALL DEVICE

 +7       ;IS DEVICE VALID (NO, ABORT REPORT)

 +8       ;S %ZIS="FQN" D ^%ZIS K %ZIS   ;CHECK FOR DEVICE CHARACTERISTICS

 +9       ;I (IO="")!(IO="^") W !,*7,"No device specified." H 2 G MAIN

 +10  +11 ;I IO=$I,$D(IO("Q")) R !,"Do you really want me to queue to this device? NO//",YN I ("Nn"[$E(X,1))!(YN="") K IO("Q") G GETPNUM

 +12      ;I $D(IO("Q")) K IO("Q") S ZTRTN="SETUP^AZXZVSIT",ZTDESC="AHCCCS Visit Counts by Provider (APC)" F G="LDATE","UDATE","LDATE1","UDATE1","PATNUM","INUM2","IO","DEV" S ZTSAVE(G)=""

 +13      ;I  D ^%ZTLOAD Q

 +14      ;S IOP=IO D ^%ZIS I 'POP G SETUP

 +15      ;W !,"Device ",IO," busy." G GETPNUM

 +16       DO ^%ZIS

           USE IO

 +17 SETUP ;SETUP FOR CALL FROM TASKMAN (OR DIRECT) 

 +1       ;INITIALIZE LOCAL VARIABLES

 +2       ;INTERNAL ENTRY NUMBER (COUNTER)

           SET DFN=0

 +3       ;LINES PER PAGE COUNTER

           SET COUNTER=1

 +4       ;TOTAL # OF VISITS COUNTER

           SET COUNTER2=0

 +5       ;INITIALIZE PAGE #

           SET PAGE=0

 +6       ;INITIALIZE CHECK VARIABLE (PVDRCHK=PVDRNAME?)

           SET CHECK=1

 +7       ;RET = IF IO=DEV CHECK FOR "^" TO EXIT

           SET RET=""

 +8  +9    FOR 

               SET INUM=0

               SET INUM2=0

               SET PATNUM=$ORDER(^AUPNMCD("B",PATNUM))

               IF PATNUM=""

                   QUIT 

               SET INUM=$ORDER(^AUPNMCD("B",PATNUM,INUM))

               FOR 

                   SET INUM2=$ORDER(^AAPCRCDS("B",PATNUM,INUM2))

                   IF INUM2=""

                       QUIT 

                   DO CHKDATE

 +10  +11 ;CALL GETDATA

 +12      ;THE DEVICE DECIDES WHERE THE DATA GOES

           DO GETDATA

 +13  +14 ;CLOSE DEVICE

 +15       XECUTE ^%ZIS("C")

 +16  +17 ;KILL OFF LOCAL AND TEMPORARY VARIABLES

 +18       KILL ^AZXZTMP

 +19       QUIT 

 +20 CONVERT ;CONVERT USER DATES TO FILEMAN DATE FORMAT

 +1       ;SET LOCAL VARIABLES

 +2       ;E=ECHO ANSWER;X=EXACT DATE

           SET %DT="EX"

 +3       ;VALUE RETURNED IN Y

           DO ^%DT

 +4        QUIT 

 +5 CHKDATE ;CHECK FOR A VALID DATE (WITHIN LDATE & UDATE)

 +1       ;INITIALIZE LOCAL VARIABLES

 +2       ;1 = VALID DATE, 0 = INVALID DATE

           SET FLAG=0

 +3        SET DATE=$PIECE(^AAPCRCDS(INUM2,0),U,3)

 +4  +5   ;SET FLAG=1 IF DATE IS WITHING LDATE & UDATE (DO WRITETMP)

 +6        IF (DATE>(LDATE-1))&(DATE<(UDATE+1))

               SET FLAG=1

 +7        IF FLAG=1

               DO GETMED

               DO GETAPC

               DO GETPVDR

               SET Y=DATE

               DO DD^%DT

               SET DATE=Y

               DO WRITETMP

 +8        QUIT 

 +9 GETMED ;GET THE MEDICAID NUMBER FROM "MEDICAID ELIGIBLE"

 +1        SET MEDNUM=$PIECE(^AUPNMCD(INUM,0),U,3)

 +2        QUIT 

 +3 GETAPC ;RETRIEVE DATA FROM "APC DATA"   

 +1       ;SOCIAL SECURITY NUMBER

           SET SSN=$PIECE(^AAPCRCDS(INUM2,0),U,6)

 +2       ;PROVIDER NUMBER

           SET PVDRNUM=$PIECE(^AAPCRCDS(INUM2,0),U,14)

 +3       ;CHART NUMBER

           SET CHARTNUM=$PIECE(^AAPCRCDS(INUM2,0),U,5)

 +4        QUIT 

 +5 GETPVDR ;GET THE ACTUAL PROVIDER NAME USING PROVIDER FILE (PVDRNUM)

 +1        SET PVDRNAME=$PIECE(^DIC(7,PVDRNUM,0),U,1)

 +2        QUIT 

 +3 WRITETMP ;WRITE DATA OUT TO TEMPORARY GLOBAL (^AZXZTMP)

 +1       ;INTERNAL ENTRY NUMBER (COUNTER)

           SET DFN=DFN+1

 +2        SET ^AZXZTMP(DFN)=PVDRNAME_"^"_PATNUM_"^"_SSN_"^"_DATE_"^"_MEDNUM_"^"_CHARTNUM

 +3        SET ^AZXZTMP("B",PVDRNAME,PATNUM,DFN)=""

 +4        QUIT 

 +5 GETDATA ;GETDATA GATHERS ALL DATA, CALLS PRINT TO PRINT TO DEVICE

 +1       ;INITIALIZE LOCAL VARIABLES

 +2       ;PVDR = PROVIDER IN "B" CROSS-REF

           SET PVDR=""

 +3       ;PAT  = PATIENT IN "B" CROSS-REF

           SET PAT=""

 +4       ;INUM = INTERNAL ENTRY # IN "B" CROSS-REF

           SET INUM=0

 +5  +6    FOR 

               SET PVDR=$ORDER(^AZXZTMP("B",PVDR))

               IF PVDR=""

                   QUIT 

               SET PAT=""

               FOR 

                   SET PAT=$ORDER(^AZXZTMP("B",PVDR,PAT))

                   IF PAT=""

                       QUIT 

                   SET INUM=0

                   FOR 

                       SET INUM=$ORDER(^AZXZTMP("B",PVDR,PAT,INUM))

                       IF 'INUM

                           QUIT 

                       DO SETVARS

                       DO PRINT

                       IF RET="^"

                           SET PVDR="ZZZZZZZZ"

                           QUIT 

 +7        IF COUNTER2

               IF RET=""

                   WRITE !!,?49,"Total Number of Visits:  ",$JUSTIFY(COUNTER2,6,0),!,"********************************************************************************",!

 +8        IF IO=DEV

               IF RET=""

                   READ !,"Press return to continue...",RET

                   WRITE @IOF

                   READ !,"Do you want to print another report? YES//",YN

                   IF ("Yy"[$EXTRACT(X,1))!(YN="")

                       GOTO MAIN

 +9        QUIT 

 +10 SETVARS ;SET CURRENT VALUES OF VARIABLES TO PRINT OUT  

 +1        SET PVDRNAME=$PIECE(^AZXZTMP(INUM),U,1)

 +2        SET PATNUM=$PIECE(^AZXZTMP(INUM),U,2)

 +3        SET SSN=$PIECE(^AZXZTMP(INUM),U,3)

 +4        SET DATE=$PIECE(^AZXZTMP(INUM),U,4)

 +5        SET MEDNUM=$PIECE(^AZXZTMP(INUM),U,5)

 +6        SET CHARTNUM=$PIECE(^AZXZTMP(INUM),U,6)

 +7       ;DUZ(2) = CURRENT FACILITY

           SET SITE=$PIECE(^DIC(4,DUZ(2),0),U,1)

 +8        QUIT 

 +9 PRINT ;PRINT ALL DATA TO DEVICE    

 +1       ;CHECK = ONLY ON FIRST TIME THRU

           IF CHECK=1

               SET PVDRCHK=PVDRNAME

 +2       ;CLEAR SCREEN IF IO=DEV, 1ST TIME

           IF (CHECK=1)

               IF (IO=DEV)

                   WRITE @IOF

 +3        IF COUNTER=1

               WRITE !,"********************************************************************************"

               SET PAGE=PAGE+1

 +4        IF COUNTER=1

               WRITE !,"AHCCCS Visit Counts by Provider (APC)       From: ",LDATE1,"  To: ",UDATE1,!,SITE,?68,"Page: ",PAGE,!,"********************************************************************************"

               SET COUNTER=COUNTER+4

 +5        IF PVDRCHK'=PVDRNAME

               WRITE !!,?49,"Total Number of Visits:  ",$JUSTIFY(COUNTER2,6,0),!,"********************************************************************************",!

               SET COUNTER2=0

               SET COUNTER=COUNTER+4

 +6        IF (COUNTER=5)&(CHECK'=1)

               WRITE !,"Primary Provider:  ",PVDRNAME,?73,"(CON'T)"

               SET COUNTER=COUNTER+1

 +7        IF (PVDRCHK'=PVDRNAME)!(CHECK=1)

               WRITE !,"Primary Provider:  ",PVDRNAME

               SET COUNTER=COUNTER+1

 +8        IF (COUNTER=6)!(PVDRCHK'=PVDRNAME)!(CHECK=1)

               WRITE !!,"Patient  ","Social Security  ","Date of Service  ","Medicaid Number  ","Chart Number"

               SET CHECK=CHECK+1

               SET COUNTER=COUNTER+2

 +9        IF (COUNTER=8)!(PVDRCHK'=PVDRNAME)

               WRITE !

               SET COUNTER=COUNTER+1

               SET PVDRCHK=PVDRNAME

 +10       WRITE !,PATNUM,?9,SSN,?26,DATE,?43,MEDNUM,?61,CHARTNUM

           SET COUNTER=COUNTER+1

 +11      ;INCREMENT # OF VISITS COUNTER

           SET COUNTER2=COUNTER2+1

 +12       IF IO=DEV

               IF COUNTER>18

                   READ !,"Press return to continue...",RET

                   SET COUNTER=1

                   WRITE @IOF

 +13       IF IO'=DEV

               IF COUNTER>57

                   SET COUNTER=1

                   WRITE #

 +14       QUIT