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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGBENPRD

Package: IHS Patient Registration

Routine: AGBENPRD


Information

AGBENPRD ;IHS/ASDS/TPF - PRINT BENEFIT PRODUCTIVITY REPORT; MAR 19, 2010

Source Information

Source file <AGBENPRD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 4 ^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 $$C^XBFUNC  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
PROCESS ;
SUBHDR ;
DEV ;
START ;
INIT ;
ASKTYPE ;
ASKBEG ;
PRINT ;
ASKEND ;
QUEUED ;

External References

Name Field # of Occurrence
^%DT ASKBEG+4, ASKEND+4
NOW^%DTC INIT+6
^%ZIS DEV+3
HOME^%ZIS ASKTYPE+14
^%ZISC ASKTYPE+15, PRINT+32
^%ZTLOAD DEV+8
$$GET1^DIQ PROCESS+19
^DIR ASKTYPE+6, ASKTYPE+11, PRINT+17, PRINT+33
$$C^XBFUNC HDR+4, HDR+5, HDR+6, HDR+7, HDR+10
$$FMTE^XLFDT ASKEND+8, ASKEND+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKBEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKEND+1
Function Call: WRITE
  • Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING."
  • Line Location: ASKEND+7
Function Call: WRITE
  • Prompt: !,"Report queued with task # ",$G(ZTSK)
  • Line Location: ASKTYPE+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!,AGDASH
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"TOTALS"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: AGUSER,?70,"Page ",AGPAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(AGLOC)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(AGRPTNAM)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("UCI: "_AGUCI)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Report Date: "_AGRPTDT)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: " to ",AGENDX
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(STR)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUBHDR+1
Function Call: WRITE
  • Prompt: $S(AGRPTTYP="RECEIVER":"PERSON",1:"APPLICATION")
  • Line Location: SUBHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHDR+5
Function Call: WRITE
  • Prompt: $S(AGRPTTYP="RECEIVER":"RECEIVING",1:"TYPE")
  • Line Location: SUBHDR+6
Function Call: WRITE
  • Prompt: ?14,"APPROVED",?23,"DENIED",?30,"RESUB",?36,"REFUSED",?44,"FOLLOWUP",?53,"ERR",?57,"PENDING",?65,"OVERINC",?73,"SCREEN"
  • Line Location: SUBHDR+9
Function Call: WRITE
  • Prompt: !,AGDASH
  • Line Location: SUBHDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHDR+11
Routine Call
  • %ZIS
  • Line Location:
    • ASKTYPE+14
Routine Call
  • DIR
  • Line Location:
    • ASKTYPE+6
    • ASKTYPE+11
    • PRINT+17
    • PRINT+33
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000045.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" INIT+5
^AUPNAPPS - [#9000045] PROCESS+9, PROCESS+12, PROCESS+15
^AUPNAPPS("D" PROCESS+4, PROCESS+6, PROCESS+8
^AUPNAPPT - [#9000048] PROCESS+11
^AUTTLOC - [#9999999.06] INIT+3
^DD("DD" INIT+7
^VA(200 - [#200] PROCESS+14, INIT+1
^XTMP("AGBENPRD" PROCESS+2!, PROCESS+26*, PROCESS+27*, PRINT+7, PRINT+10, PRINT+19, PRINT+20!, PRINT+24, PRINT+31, PRINT+34!

Label References

Name Line Occurrences
ASKBEG ASKEND+5, ASKEND+7
ASKEND ASKTYPE+7
DEV ASKTYPE+10
HDR PRINT+1, PRINT+17, PRINT+18
INIT START+1
PRINT QUEUED+2
PROCESS QUEUED+1
QUEUED ASKTYPE+13
SUBHDR PRINT+2, PRINT+17, PRINT+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+7
>> %DT ASKBEG+3*, ASKEND+3*
>> %DT("A" ASKBEG+2*, ASKEND+2*
%ZIS DEV+1!, DEV+2*
>> AGBEG ASKBEG+6*, ASKEND+7, ASKEND+8, PROCESS+3*, PROCESS+4*, PROCESS+6, PROCESS+8
>> AGBEGX ASKEND+8*, HDR+8
>> AGDASH PRINT+21, INIT+10*, SUBHDR+10
>> AGEND ASKEND+6*, ASKEND+7, ASKEND+9, PROCESS+4
>> AGENDX ASKEND+9*, HDR+8
>> AGLOC INIT+3*, HDR+4
>> AGPAGE INIT+9*, HDR+1*, HDR+3
>> AGRPTDT INIT+8*, HDR+7
>> AGRPTNAM INIT+4*, HDR+5, DEV+6
>> AGRPTTYP ASKTYPE+8*, PROCESS+24, SUBHDR+2, SUBHDR+6
>> AGTYPE PROCESS+9*, PROCESS+10*, PROCESS+11*, PROCESS+24
>> AGUCI INIT+5*, HDR+6
>> AGUSER INIT+1*, HDR+3
>> APPTYPE PRINT+3*, PRINT+7*, PRINT+8, PRINT+10, PRINT+19
DIR ASKTYPE+1!, ASKTYPE+11!, PRINT+17!, PRINT+33!
DIR("L" ASKTYPE+3*, ASKTYPE+4*, ASKTYPE+5*
DIR(0 ASKTYPE+2*, ASKTYPE+11*, PRINT+17*, PRINT+33*
>> DIROUT ASKTYPE+7
>> DTOUT ASKTYPE+7
>> DUOUT ASKTYPE+7
DUZ INIT+1
DUZ(2 INIT+3
ESC PRINT+4~, PRINT+7, PRINT+17*, PRINT+20
IEN PROCESS+1~, PROCESS+5*, PROCESS+6*, PROCESS+8, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+16
>> IENS PROCESS+16*, PROCESS+19
IO ASKTYPE+12
IO("Q" DEV+5
IOF HDR+2
IOSL PRINT+17, PRINT+18, PRINT+33
IOST PRINT+17, PRINT+18, PRINT+33
>> OFFSET PRINT+14*, PRINT+19, PRINT+30*, PRINT+31
>> OVERSTAT PROCESS+15*, PROCESS+17, PROCESS+18*, PROCESS+19*, PROCESS+22*, PROCESS+23*, PROCESS+26, PROCESS+27, PRINT+9*, PRINT+10*
, PRINT+11, PRINT+14, PRINT+19, PRINT+23*, PRINT+24*, PRINT+25, PRINT+27, PRINT+30, PRINT+31
>> PERSREC PROCESS+12*, PROCESS+13*, PROCESS+14*, PROCESS+24
>> POP ASKTYPE+10, DEV+4
REC PROCESS+1~, PROCESS+7*, PROCESS+8*, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+16
>> STATUS PRINT+11*, PRINT+26, PRINT+27*
>> STR HDR+8*, HDR+10
>> SUB3 PROCESS+24*, PROCESS+25*, PROCESS+26
U ASKBEG+5, ASKEND+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PROCESS+22, PROCESS+23, PRINT+11
, PRINT+14, PRINT+17, PRINT+27, PRINT+30, INIT+1, INIT+3
>> X ASKBEG+5, ASKEND+5, PRINT+17
>> Y ASKBEG+6, ASKEND+5, ASKEND+6, ASKTYPE+7, INIT+5, INIT+7*, INIT+8
>> Y(0 ASKTYPE+8
>> ZTDESC DEV+6*
>> ZTQUEUED PRINT+17, PRINT+33
>> ZTRTN DEV+6*
>> ZTSAVE("AG*" DEV+7*
ZTSK ASKTYPE+11, DEV+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All