Routine: AZXZVS

Package	Total	Call Graph
IHS VA Utilities	1	^XBKSET
Kernel	1	^%ZIS
VA Fileman	1	(,DD)^%DT

Name	Comments	DBIA/ICR reference
GETAPC	;RETRIEVE DATA FROM "APC DATA"
CONVERT	;CONVERT USER DATES TO FILEMAN DATE FORMAT
LBDATE2	;CONVERT LDATE TO NEW FORMATS
GETPNUM	;RETRIEVE DATA FROM "MEDICAID ELIGIBLE"
UBDATE2	;CONVERT UDATE TO NEW FORMATS
ERR	;THE ^AZXZTMP2 GLOBAL EXISTS (ERROR HAS OCCURRED OR
SETUP	;SETUP FOR CALL FROM TASKMAN (OR DIRECT)
GETPVDR	;GET THE ACTUAL PROVIDER NAME USING PROVIDER FILE (PVDRNUM)
CHKDATE	;CHECK FOR A VALID DATE (WITHIN LDATE & UDATE)
LBDATE	;READ USER INPUT ON LOWER BOUND DATE
UBDATE	;READ USER INPUT ON UPPER BOUND DATE
PRINT	;PRINT ALL DATA TO DEVICE
GETDATA	;GETDATA GATHERS ALL DATA, CALLS PRINT TO PRINT TO DEVICE
MAIN	;AZXZVS PROGRAM CONTROL
WRITETMP	;WRITE DATA OUT TO TEMPORARY GLOBAL (^AZXZTMP2)
SETVARS	;SET CURRENT VALUES OF VARIABLES TO PRINT OUT

Name	Field # of Occurrence
^%DT	CONVERT+3
DD^%DT	LBDATE2+6, UBDATE2+7, CHKDATE+7
^%ZIS	GETPNUM+16
^XBKSET	MAIN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MAIN+6
Function Call: WRITE	Prompt: !!!,"APC Visit Counts by Provider Report..." Line Location: MAIN+7
Function Call: WRITE	Prompt: !!,"Enter Lower Boundary Date to search on for report." Line Location: LBDATE+6
Function Call: WRITE	Prompt: !!,"Enter Lower Boundary Date to search on for report." Line Location: LBDATE+7
Function Call: WRITE	Prompt: !!,"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" Line Location: LBDATE+8
Function Call: WRITE	Prompt: !!,"Enter Lower Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input" Line Location: LBDATE+9
Function Call: WRITE	Prompt: !!,?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" Line Location: LBDATE+10
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter lower boundary date.",!,*7 Line Location: LBDATE+14
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter lower boundary date.",!,*7 Line Location: LBDATE2+4
Function Call: WRITE	Prompt: !!,"Enter Upper Boundary Date to search on for report." Line Location: UBDATE+5
Function Call: WRITE	Prompt: !!,"Enter Upper Boundary Date to search on for report." Line Location: UBDATE+6
Function Call: WRITE	Prompt: !!,"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" Line Location: UBDATE+7
Function Call: WRITE	Prompt: !!,"Enter Upper Boundary Date to search on for report.",!!,"Date Examples:",?15,"Format",?29,"- Example User Input" Line Location: UBDATE+8
Function Call: WRITE	Prompt: !!,?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" Line Location: UBDATE+9
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 Line Location: UBDATE+13
Function Call: WRITE	Prompt: ! Line Location: UBDATE2+3
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 Line Location: UBDATE2+5
Function Call: WRITE	Prompt: !!,"Upper boundary date must be greater than or equal to lower boundary date.",!,*7 Line Location: UBDATE2+10
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: GETPNUM+9
Function Call: WRITE	Prompt: @IOF Line Location: ERR+2
Function Call: WRITE	Prompt: !!!,"********************************************************************************",!!,"The ""APC Visit Counts by Provider"" report is already currently running." Line Location: ERR+3
Function Call: WRITE	Prompt: !!,"If you find that the report is not currently running..." Line Location: ERR+4
Function Call: WRITE	Prompt: !,"please contact the MIS Manager immediately, a program error" Line Location: ERR+5
Function Call: WRITE	Prompt: !,"may have occured." Line Location: ERR+6
Function Call: WRITE	Prompt: !!,"********************************************************************************" Line Location: ERR+7
Function Call: WRITE	Prompt: # Line Location: ERR+9
Function Call: WRITE	Prompt: !,?73,"_______",!,?64,"Subtotal:",?73,$J(SUBTOTAL,7,0) Line Location: GETDATA+9
Function Call: WRITE	Prompt: !,?73,"_______",!,?67,"Total:",?73,$J(TOTAL,7,0) Line Location: GETDATA+10
Function Call: WRITE	Prompt: @IOF Line Location: GETDATA+11
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"********************************************************************************" Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"APC Visit Counts by Provider From: ",LDATE1," To: ",UDATE1,!,SITE,?68,"Page: ",PAGE,!,"********************************************************************************" Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"Provider Discipline",?40,"Discipline Code",?64,"Number of Visits",! Line Location: PRINT+9
Function Call: WRITE	Prompt: !,PVDRCHK,?40,PNUMCHK,?73,$J(COUNTER2,7,0) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?73,"_______",!,?64,"Subtotal:",?73,$J(SUBTOTAL,7,0) Line Location: PRINT+14
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?73,"_______",!,?64,"Subtotal:",?73,$J(SUBTOTAL,7,0) Line Location: PRINT+15
Function Call: WRITE	Prompt: # Line Location: PRINT+15
Routine Call	%ZIS Line Location: GETPNUM+16

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	SETUP+22
^AAPCRCDS(	CHKDATE+3, GETAPC+3, GETAPC+6, GETAPC+9
^AAPCRCDS("B"	SETUP+16
^AZXZTMP2	GETDATA+12!, GETDATA+15!, WRITETMP+3, WRITETMP+7, SETVARS+1, SETVARS+2
^AZXZTMP2("B"	WRITETMP+4, WRITETMP+9, GETDATA+8
^AZXZTMP2(0	SETUP+3, SETUP+14*
^DIC(4 - [#4]	PRINT+2
^DIC(7 - [#7]	GETPVDR+2, GETPVDR+3, SETVARS+3

Name	Line Occurrences
CHKDATE	SETUP+16
CONVERT	LBDATE2+2, UBDATE2+2
ERR	SETUP+3
GETAPC	CHKDATE+7
GETDATA	SETUP+19
GETPNUM	UBDATE2+12
GETPVDR	CHKDATE+7
LBDATE	LBDATE+6, LBDATE+8, LBDATE+10, LBDATE+15, LBDATE2+4, UBDATE+3
LBDATE2	LBDATE+13
MAIN	GETDATA+12
PRINT	GETDATA+8
SETVARS	GETDATA+8
UBDATE	UBDATE+5, UBDATE+7, UBDATE+9, UBDATE+14, UBDATE2+5, UBDATE2+10
UBDATE2	UBDATE+12
WRITETMP	CHKDATE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	CONVERT+2*
>> CHECK	SETUP+10, PRINT+2, PRINT+5
>> COUNTER	SETUP+7, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+14, PRINT+15*
>> COUNTER2	SETUP+8, PRINT+10, PRINT+12*
>> DATE	CHKDATE+3, CHKDATE+6, CHKDATE+7, WRITETMP+3, WRITETMP+7
>> DEV	GETPNUM+2*, ERR+2, ERR+8, ERR+9, GETDATA+11, PRINT+5, PRINT+14, PRINT+15
>> DFN	SETUP+6, WRITETMP+1, WRITETMP+3, WRITETMP+4, WRITETMP+7, WRITETMP+8, WRITETMP+9, GETDATA+12
DUZ(2	PRINT+2
>> FLAG	CHKDATE+2, CHKDATE+6, CHKDATE+7
>> I	GETAPC+9, GETPVDR+3, WRITETMP+7, WRITETMP+9
>> INUM	GETDATA+4, GETDATA+8, SETVARS+1, SETVARS+2
>> INUM2	GETPNUM+4, SETUP+16, CHKDATE+3, GETAPC+3, GETAPC+6, GETAPC+9
IO	GETPNUM+16, ERR+2, ERR+8, ERR+9, GETDATA+11, PRINT+5, PRINT+14, PRINT+15
IOF	MAIN+6, ERR+2, GETDATA+11, PRINT+5, PRINT+14
>> LDATE	LBDATE+1, LBDATE+3, LBDATE+6, LBDATE+7, LBDATE+8, LBDATE+9, LBDATE+10, LBDATE+13, LBDATE2+1, LBDATE2+5 , LBDATE2+6, UBDATE2+10, CHKDATE+6
>> LDATE1	LBDATE2+6*, PRINT+8
>> NUM	SETVARS+2*, SETVARS+3
>> OTHER	GETAPC+2, GETAPC+6, GETAPC+9, GETPVDR+3, WRITETMP+7, WRITETMP+8, WRITETMP+9
OTHERNUM	WRITETMP+10!
OTHERNUM(	GETAPC+9*, GETPVDR+3, WRITETMP+7
OTHRNAME	WRITETMP+10!
OTHRNAME(	GETPVDR+3*, WRITETMP+7, WRITETMP+9
>> PAGE	SETUP+9, PRINT+7, PRINT+8
>> PAT	GETDATA+3, GETDATA+8
>> PATNUM	GETPNUM+3, SETUP+16, WRITETMP+3, WRITETMP+4, WRITETMP+7, WRITETMP+9
>> PNUMCHK	PRINT+2, PRINT+10
>> PVDR	GETDATA+2, GETDATA+8
>> PVDRCHK	PRINT+2, PRINT+10
>> PVDRNAME	GETPVDR+2, WRITETMP+3, WRITETMP+4, SETVARS+1, PRINT+2, PRINT+10
>> PVDRNUM	GETAPC+3, GETPVDR+2, WRITETMP+3, SETVARS+3, PRINT+2, PRINT+10
>> RET	SETUP+11, ERR+8, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, PRINT+14
>> SITE	PRINT+2*, PRINT+8
>> SUBTOTAL	GETDATA+5, GETDATA+9, GETDATA+10, PRINT+10, PRINT+14, PRINT+15
>> TOTAL	GETDATA+6, GETDATA+10, PRINT+14, PRINT+15
U	CHKDATE+3, GETAPC+3, GETAPC+6, GETAPC+9, GETPVDR+2, GETPVDR+3, SETVARS+1, SETVARS+2, SETVARS+3, PRINT+2
>> UDATE	UBDATE+1, UBDATE+3, UBDATE+5, UBDATE+6, UBDATE+7, UBDATE+8, UBDATE+9, UBDATE+12, UBDATE2+1, UBDATE2+6 , UBDATE2+7, UBDATE2+10, CHKDATE+6
>> UDATE1	UBDATE2+7*, PRINT+8
>> X	LBDATE2+1, UBDATE2+1, GETDATA+12
>> Y	LBDATE2+4, LBDATE2+5, LBDATE2+6, UBDATE2+5, UBDATE2+6, UBDATE2+7, CHKDATE+7*
>> YN	GETDATA+12*

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXZVS

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: