Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AZXZVSIT

Package: Phoenix Devel Center

Routine: AZXZVSIT


Information

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

Source Information

Source file <AZXZVSIT.m>

Call Graph

Call Graph Total: 3

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

Entry Points

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
SETUP ;SETUP FOR CALL FROM TASKMAN (OR DIRECT)
GETPVDR ;GET THE ACTUAL PROVIDER NAME USING PROVIDER FILE (PVDRNUM)
GETMED ;GET THE MEDICAID NUMBER FROM "MEDICAID ELIGIBLE"
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 ;AZXZVSIT PROGRAM CONTROL
WRITETMP ;WRITE DATA OUT TO TEMPORARY GLOBAL (^AZXZTMP)
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+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: !!!,"Visit Counts by Provider Report (APC)..."
  • 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: !!,?49,"Total Number of Visits: ",$J(COUNTER2,6,0),!,"********************************************************************************",!
  • Line Location: GETDATA+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GETDATA+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"********************************************************************************"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"AHCCCS Visit Counts by Provider (APC) From: ",LDATE1," To: ",UDATE1,!,SITE,?68,"Page: ",PAGE,!,"********************************************************************************"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?49,"Total Number of Visits: ",$J(COUNTER2,6,0),!,"********************************************************************************",!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Primary Provider: ",PVDRNAME,?73,"(CON'T)"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Primary Provider: ",PVDRNAME
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Patient ","Social Security ","Date of Service ","Medicaid Number ","Chart Number"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,PATNUM,?9,SSN,?26,DATE,?43,MEDNUM,?61,CHARTNUM
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: #
  • Line Location: PRINT+13
Routine Call
  • %ZIS
  • Line Location:
    • GETPNUM+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" SETUP+15
^AAPCRCDS( CHKDATE+3, GETAPC+1, GETAPC+2, GETAPC+3
^AAPCRCDS("B" SETUP+9
^AUPNMCD - [#9000004] GETMED+1
^AUPNMCD("B" SETUP+9
^AZXZTMP SETUP+18!, WRITETMP+2*, SETVARS+1, SETVARS+2, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6
^AZXZTMP("B" WRITETMP+3*, GETDATA+6
^DIC(4 - [#4] SETVARS+7
^DIC(7 - [#7] GETPVDR+1

Label References

Name Line Occurrences
CHKDATE SETUP+9
CONVERT LBDATE2+2, UBDATE2+2
GETAPC CHKDATE+7
GETDATA SETUP+12
GETMED CHKDATE+7
GETPNUM UBDATE2+12
GETPVDR CHKDATE+7
LBDATE LBDATE+6, LBDATE+8, LBDATE+10, LBDATE+15, LBDATE2+4, UBDATE+3
LBDATE2 LBDATE+13
MAIN GETDATA+8
PRINT GETDATA+6
SETVARS GETDATA+6
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*
>> CHARTNUM GETAPC+3*, WRITETMP+2, SETVARS+6*, PRINT+10
>> CHECK SETUP+6*, PRINT+1, PRINT+2, PRINT+6, PRINT+7, PRINT+8*
>> COUNTER SETUP+3*, PRINT+3, PRINT+4*, PRINT+5*, PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+12*
, PRINT+13*
>> COUNTER2 SETUP+4*, GETDATA+7, PRINT+5*, PRINT+11*
>> DATE CHKDATE+3*, CHKDATE+6, CHKDATE+7*, WRITETMP+2, SETVARS+4*, PRINT+10
>> DEV GETPNUM+2*, GETDATA+8, PRINT+2, PRINT+12, PRINT+13
>> DFN SETUP+2*, WRITETMP+1*, WRITETMP+2, WRITETMP+3
DUZ(2 SETVARS+7
>> FLAG CHKDATE+2*, CHKDATE+6*, CHKDATE+7
>> INUM SETUP+9*, GETMED+1, GETDATA+4*, GETDATA+6*, SETVARS+1, SETVARS+2, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6
>> INUM2 GETPNUM+4*, SETUP+9*, CHKDATE+3, GETAPC+1, GETAPC+2, GETAPC+3
IO GETPNUM+16, GETDATA+8, PRINT+2, PRINT+12, PRINT+13
IOF MAIN+6, GETDATA+8, PRINT+2, PRINT+12
>> 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+4
>> MEDNUM GETMED+1*, WRITETMP+2, SETVARS+5*, PRINT+10
>> PAGE SETUP+5*, PRINT+3*, PRINT+4
>> PAT GETDATA+3*, GETDATA+6*
>> PATNUM GETPNUM+3*, SETUP+9*, WRITETMP+2, WRITETMP+3, SETVARS+2*, PRINT+10
>> PVDR GETDATA+2*, GETDATA+6*
>> PVDRCHK PRINT+1*, PRINT+5, PRINT+7, PRINT+8, PRINT+9*
>> PVDRNAME GETPVDR+1*, WRITETMP+2, WRITETMP+3, SETVARS+1*, PRINT+1, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
>> PVDRNUM GETAPC+2*, GETPVDR+1
>> RET SETUP+7*, GETDATA+6, GETDATA+7, GETDATA+8*, PRINT+12*
>> SITE SETVARS+7*, PRINT+4
>> SSN GETAPC+1*, WRITETMP+2, SETVARS+3*, PRINT+10
U CHKDATE+3, GETMED+1, GETAPC+1, GETAPC+2, GETAPC+3, GETPVDR+1, SETVARS+1, SETVARS+2, SETVARS+3, SETVARS+4
, SETVARS+5, SETVARS+6, SETVARS+7
>> 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+4
>> X LBDATE2+1*, UBDATE2+1*, GETDATA+8
>> Y LBDATE2+4, LBDATE2+5, LBDATE2+6*, UBDATE2+5, UBDATE2+6, UBDATE2+7*, CHKDATE+7*
>> YN GETDATA+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All