Routine: AZXZVS1

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

Entry Points

Name	Comments	DBIA/ICR reference
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 ^AZXZTMP3 GLOBAL EXISTS (ERROR HAS OCCURRED OR
SETUP	;SETUP FOR CALL FROM TASKMAN (OR DIRECT)
GETSPEC	;GET SPECIFIC DISCIPLINE CODES (PROVIDER)
CHKSPEC	;CHECK TO MAKE SURE IT HAS A SPECIFIC PROVIDER
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	;AZXZVS1 PROGRAM CONTROL
WRITETMP	;WRITE DATA OUT TO TEMPORARY GLOBAL (^AZXZTMP3)
GETNAME	;GET REAL NAME OF SPECIFIC PROVIDER, PROVIDER CLASS NAME AND CODE
SETVARS	;SET CURRENT VALUES OF VARIABLES TO PRINT OUT

External References

Name	Field # of Occurrence
^%DT	CONVERT+3
DD^%DT	LBDATE2+6, UBDATE2+7, CHKDATE+11
^%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 of Service 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 of Service"" report is 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 of Service From: ",LDATE1," To: ",UDATE1,!,SITE,?68,"Page: ",PAGE,!,"********************************************************************************" Line Location: PRINT+8
Function Call: WRITE	Prompt: !!,"Provider of Service",?25,"Provider Discipline",?54,"Code",?64,"Number of Visits",! Line Location: PRINT+9
Function Call: WRITE	Prompt: !,PVDRCHK,?25,DISCCHK,?54,SPECCHK,?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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CHKDATE	SETUP+16
CHKSPEC	CHKDATE+9
CONVERT	LBDATE2+2, UBDATE2+2
ERR	SETUP+3
GETDATA	SETUP+19
GETNAME	CHKDATE+11
GETPNUM	UBDATE2+12
GETSPEC	CHKDATE+11
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+11

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+11
>> DEV	GETPNUM+2*, ERR+2, ERR+8, ERR+9, GETDATA+11, PRINT+5, PRINT+14, PRINT+15
>> DFN	SETUP+6, WRITETMP+2, WRITETMP+3, WRITETMP+4, GETDATA+12*
>> DISC	GETDATA+3, GETDATA+8
>> DISCCHK	PRINT+2, PRINT+10
DUZ(2	PRINT+2
>> FLAG	CHKDATE+2, CHKDATE+6, CHKDATE+11
>> FLAG2	CHKDATE+11, CHKSPEC+2, CHKSPEC+6
>> INUM	GETDATA+4, GETDATA+8, SETVARS+1, SETVARS+2, SETVARS+3
>> INUM2	GETPNUM+4, SETUP+16, CHKDATE+3, CHKSPEC+5, CHKSPEC+6
>> INUM3	GETSPEC+1*
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
>> J	CHKSPEC+6, GETSPEC+1, GETNAME+2, GETNAME+3, WRITETMP+2, WRITETMP+4
>> 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
>> PAGE	SETUP+9, PRINT+7, PRINT+8
>> PATNUM	GETPNUM+3, SETUP+16
>> PVDR	GETDATA+2, GETDATA+8
>> PVDRCHK	PRINT+2, PRINT+10
PVDRDISC	WRITETMP+6!, SETVARS+2*, PRINT+2, PRINT+10
PVDRDISC(	GETNAME+2*, WRITETMP+2, WRITETMP+4
PVDRNAME	WRITETMP+6!, SETVARS+1*, PRINT+2, PRINT+10
PVDRNAME(	GETNAME+3*, WRITETMP+2, WRITETMP+4
>> RET	SETUP+11, ERR+8, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, PRINT+14
>> SITE	PRINT+2*, PRINT+8
>> SPEC	CHKSPEC+3, CHKSPEC+5, CHKSPEC+6, GETSPEC+1, GETNAME+2, GETNAME+3, WRITETMP+2, WRITETMP+3, WRITETMP+4
>> SPECCHK	PRINT+2, PRINT+10
SPECCODE	WRITETMP+6!, SETVARS+3*, PRINT+2, PRINT+10
SPECCODE(	GETNAME+2*, WRITETMP+2
SPECNUM	WRITETMP+6!
SPECNUM(	GETSPEC+1*
SPECPVDR	WRITETMP+6!
SPECPVDR(	CHKSPEC+6*, GETSPEC+1, GETNAME+2, GETNAME+3
>> 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, CHKSPEC+5, CHKSPEC+6, GETSPEC+1, GETNAME+2, GETNAME+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+11*
>> YN	GETDATA+12*

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXZVS1

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: