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: AGBENPRC

Package: IHS Patient Registration

Routine: AGBENPRC


Information

AGBENPRC ;IHS/ASDS/TPF - PRINT BENEFIT PRODUCTIVITY REPORT BY COORD; MAR 19, 2010

Source Information

Source file <AGBENPRC.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
ASKTYPE1 ;EP -
TOT(REC) ; ;AG*7.1*8
CONT ;EP -
HDR ;
ASKDATE ;EP -
ASKCO ;EP -
ASKSTAT1 ;EP -
DEV ;
PROCESS ;
START ;
INIT ;
SUBHDR ;
ASKEND ;
ASKBEG ;EP -
ASKSTAT ;EP - OVERALL STATUS
PRINT ;
ASKTYPE ;EP - APPLICATION TYPE
ASKCO1 ;EP -
QUEUED ;

External References

Name Field # of Occurrence
^%DT ASKBEG+4, ASKEND+4
NOW^%DTC INIT+5
^%ZIS DEV+3
HOME^%ZIS CONT+5
^%ZISC CONT+6, PRINT+44
^%ZTLOAD DEV+11
^DIC ASKCO1+6, ASKTYPE1+6
$$GET1^DIQ PROCESS+11, PROCESS+26, INIT+1, INIT+2, SUBHDR+12
^DIR ASKDATE+5, ASKCO+6, ASKTYPE+6, ASKSTAT+6, ASKSTAT1+6, CONT+2, PRINT+12, PRINT+29, PRINT+40, PRINT+45
$$C^XBFUNC HDR+4, HDR+5, HDR+6, HDR+7, HDR+9
$$FMTE^XLFDT PROCESS+2, PROCESS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+1
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: !!
  • Line Location: ASKCO+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKTYPE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKSTAT+1
Function Call: WRITE
  • Prompt: !,"Report queued with task # ",$G(ZTSK)
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !!,"NO APPLICATIONS FOUND WITH THE CRITERIA ENTERED"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+45
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: !,$$C^XBFUNC(STR)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUBHDR+1
Function Call: WRITE
  • Prompt: AGEQUAL
  • Line Location: SUBHDR+2
Function Call: WRITE
  • Prompt: "REPORT FOR DATES OBTAINED FROM "
  • Line Location: SUBHDR+3
Function Call: WRITE
  • Prompt: AGBEGX
  • Line Location: SUBHDR+4
Function Call: WRITE
  • Prompt: " TO ",AGENDX
  • Line Location: SUBHDR+5
Function Call: WRITE
  • Prompt: !,"FOR "
  • Line Location: SUBHDR+6
Function Call: WRITE
  • Prompt: !,"ALL APPLICATION TYPES"
  • Line Location: SUBHDR+7
Function Call: WRITE
  • Prompt: ","
  • Line Location: SUBHDR+13
Function Call: WRITE
  • Prompt: !,"provided by ",PERSREC
  • Line Location: SUBHDR+14
Function Call: WRITE
  • Prompt: !,AGEQUAL
  • Line Location: SUBHDR+15
Function Call: WRITE
  • Prompt: !,"DATE",?15,"CHART",?30,"APPLICATION TYPE",?60,"STATUS"
  • Line Location: SUBHDR+16
Function Call: WRITE
  • Prompt: !,"OBTAINED"
  • Line Location: SUBHDR+17
Function Call: WRITE
  • Prompt: !,AGDASH
  • Line Location: SUBHDR+18
Function Call: WRITE
  • Prompt: !!,?34,"Report Totals"
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !!!,"APPLICATION",?30,"STATUS",?48,"TOTAL COUNT"
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !,"TYPE"
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: !,AGEQUAL
  • Line Location: TOT+6
Function Call: WRITE
  • Prompt: !,AGTYPE,?30,AGSTAT,?50,$G(AGCNT(REC,AGTYPE,AGSTAT))
  • Line Location: TOT+11
Routine Call
  • %ZIS
  • Line Location:
    • CONT+5
Routine Call
  • DIC
  • Line Location:
    • ASKCO1+6
    • ASKTYPE1+6
Routine Call
  • DIR
  • Line Location:
    • ASKDATE+5
    • ASKCO+6
    • ASKTYPE+6
    • ASKSTAT+6
    • ASKSTAT1+6
    • CONT+2
    • PRINT+12
    • PRINT+29
    • PRINT+40
    • PRINT+45
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^AUPNAPPS - [#9000045] GET1^DIQ
9000045.11 GET1^DIQ
^AUPNAPPT - [#9000048] Classic Fileman Calls,  GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" INIT+4
^AUPNAPPS - [#9000045] PROCESS+14, PROCESS+18, PROCESS+22
^AUPNAPPS("D" ASKDATE+7, PROCESS+6, PROCESS+8, PROCESS+10
^AUPNAPPT - [#9000048] PROCESS+17
^AUPNPAT - [#9000001] PROCESS+12
^DD("DD" PRINT+30, INIT+6
^DD(9000045.11 ASKSTAT1+1
^VA(200 - [#200] PROCESS+21
^XTMP("AGBENPRC" PROCESS+4!, PROCESS+29*, PRINT+3, PRINT+8, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+43!, PRINT+46!

Label References

Name Line Occurrences
ASKBEG ASKEND+5, ASKEND+7
ASKCO ASKDATE+7, ASKTYPE+7
ASKCO1 ASKCO1+7
ASKDATE ASKBEG+5, ASKCO+7
ASKSTAT ASKTYPE+8, ASKTYPE1+7
ASKSTAT1 ASKSTAT1+8
ASKTYPE ASKCO+8, ASKSTAT+7, ASKSTAT1+7
ASKTYPE1 ASKTYPE1+8
CONT ASKSTAT+8
DEV CONT+1
HDR PRINT+15, PRINT+29, TOT+2
INIT START+2
PRINT QUEUED+2
PROCESS QUEUED+1
QUEUED CONT+4
SUBHDR PRINT+15, PRINT+29
TOT PRINT+38, PRINT+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+6
>> %DT ASKBEG+3*, ASKEND+3*
>> %DT("A" ASKBEG+2*, ASKEND+2*
%ZIS DEV+1!, DEV+2*
AGBEG ASKDATE+7*, ASKBEG+6*, ASKEND+7, PROCESS+2, PROCESS+5*, PROCESS+6*, PROCESS+8, PROCESS+10, PROCESS+29, PRINT+2~
, PRINT+17*, PRINT+18*, PRINT+20, PRINT+22, PRINT+26, PRINT+30
AGBEGEX PRINT+2~, PRINT+30*, PRINT+31
>> AGBEGX PROCESS+2*, HDR+8, SUBHDR+4
AGCHART PROCESS+12*, PROCESS+13*, PROCESS+29, PRINT+2~, PRINT+23*, PRINT+26*, PRINT+32
AGCNT PRINT+2~, PRINT+5*, PRINT+14*, PRINT+39
AGCNT( PRINT+35*, TOT+9, TOT+10, TOT+11
AGCNT(0 PRINT+36*
>> AGDASH INIT+9*, SUBHDR+18
>> AGEND ASKDATE+7*, ASKEND+6*, ASKEND+7, PROCESS+3, PROCESS+6
>> AGENDX PROCESS+3*, HDR+8, SUBHDR+5
>> AGEQUAL INIT+10*, SUBHDR+2, SUBHDR+15, TOT+6
>> AGLOC INIT+2*, HDR+4
>> AGPAGE INIT+8*, HDR+1*, HDR+3
>> AGPAT PROCESS+11*, PROCESS+12
>> AGRPTDT INIT+7*, HDR+7
>> AGRPTNAM INIT+3*, HDR+5, DEV+6
AGSTAT TOT+7~, TOT+8*, TOT+10*, TOT+11
AGTYPE PROCESS+14*, PROCESS+15*, PROCESS+16, PROCESS+17*, PROCESS+29, PRINT+2~, PRINT+19*, PRINT+20*, PRINT+22, PRINT+26
, PRINT+33, PRINT+35, PRINT+36, TOT+7~, TOT+8*, TOT+9*, TOT+10, TOT+11
>> AGUCI INIT+4*, HDR+6
>> AGUSER INIT+1*, HDR+3
APPTYPE ASKTYPE+2!, ASKTYPE1+4, PROCESS+16, SUBHDR+7, SUBHDR+10*, SUBHDR+11*, SUBHDR+12, SUBHDR+13
APPTYPE( ASKTYPE1+8*, PROCESS+16, SUBHDR+11, SUBHDR+13
ASKCOORD ASKCO+2!, ASKCO1+4, PROCESS+20
ASKCOORD( ASKCO1+7*, PROCESS+20
ASKSTAT ASKSTAT+2!, ASKSTAT1+4, PROCESS+24
ASKSTAT( ASKSTAT1+8*, PROCESS+24
>> CHOICE ASKSTAT1+1*, ASKSTAT1+5
DA ASKCO1+1!, ASKTYPE1+1!
DIC ASKCO1+1!, ASKCO1+2*, ASKTYPE1+1!, ASKTYPE1+2*
DIC("A" ASKCO1+3*, ASKCO1+4*, ASKTYPE1+3*, ASKTYPE1+4*
DIC(0 ASKCO1+5*, ASKTYPE1+5*
DIE ASKCO1+1!, ASKTYPE1+1!
DIR ASKDATE+1!, ASKCO+2!, ASKCO1+1!, ASKTYPE+2!, ASKTYPE1+1!, ASKSTAT+2!, ASKSTAT1+2!, CONT+2!, PRINT+12!, PRINT+29!
, PRINT+40!, PRINT+45!
DIR("A" ASKDATE+3*, ASKCO+4*, ASKTYPE+4*, ASKSTAT+4*, ASKSTAT1+3*, ASKSTAT1+4*
DIR("B" ASKDATE+4*, ASKCO+5*, ASKTYPE+5*, ASKSTAT+5*
DIR(0 ASKDATE+2*, ASKCO+3*, ASKTYPE+3*, ASKSTAT+3*, ASKSTAT1+5*, CONT+2*, PRINT+12*, PRINT+29*, PRINT+40*, PRINT+45*
DR ASKCO1+1!, ASKTYPE1+1!
>> DTOUT ASKDATE+6, ASKCO+7, ASKTYPE+7, ASKSTAT+7, ASKSTAT1+7
>> DUOUT ASKDATE+6, ASKCO+7, ASKTYPE+7, ASKSTAT+7, ASKSTAT1+7
DUZ INIT+1
DUZ(2 PROCESS+12, INIT+2
ESC PRINT+2~, PRINT+8, PRINT+12*, PRINT+13, PRINT+16, PRINT+26, PRINT+29*, PRINT+40*, PRINT+41, PRINT+43
IEN PROCESS+1~, PROCESS+7*, PROCESS+8*, PROCESS+10, PROCESS+11, PROCESS+14, PROCESS+18, PROCESS+22, PROCESS+25
>> IENS PROCESS+25*, PROCESS+26
IO CONT+3
IO("Q" DEV+5
IOF START+1, HDR+2
IOSL PRINT+29, PRINT+45
IOST PRINT+12, PRINT+29, PRINT+40, PRINT+45
OLDPERS PRINT+2~, PRINT+5*, PRINT+9
OVERSTAT PROCESS+22*, PROCESS+23*, PROCESS+24, PROCESS+26*, PROCESS+27*, PROCESS+29, PRINT+2~, PRINT+21*, PRINT+22*, PRINT+26
, PRINT+34, PRINT+35, PRINT+36
PERSREC PROCESS+18*, PROCESS+19*, PROCESS+20, PROCESS+21*, PROCESS+29, PRINT+2~, PRINT+3*, PRINT+4, PRINT+5*, PRINT+8*
, PRINT+9, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+35, PRINT+38, SUBHDR+14
>> POP CONT+1, DEV+4
REC PROCESS+1~, PROCESS+9*, PROCESS+10*, PROCESS+14, PROCESS+18, PROCESS+22, PROCESS+25, TOT~, TOT+1, TOT+9
, TOT+10, TOT+11
>> STR HDR+8*, HDR+9
U ASKBEG+5, ASKEND+5, ASKSTAT1+1, PROCESS+12, PROCESS+14, PROCESS+17, PROCESS+18, PROCESS+21, PROCESS+22, PRINT+12
, PRINT+29, PRINT+40
>> X ASKBEG+5, ASKEND+5, ASKTYPE1+7, PRINT+12, PRINT+29, PRINT+40
>> Y ASKDATE+7, ASKBEG+6, ASKEND+5, ASKEND+6, ASKCO+8, ASKCO1+7, ASKTYPE+8, ASKTYPE1+8, ASKSTAT+8, ASKSTAT1+8
, PRINT+30*, INIT+4, INIT+6*, INIT+7
>> ZTDESC DEV+6*
>> ZTQUEUED PRINT+45
>> ZTRTN DEV+6*
>> ZTSAVE("AG*" DEV+7*
>> ZTSAVE("APPTYPE" DEV+9*
>> ZTSAVE("ASKCOORD" DEV+10*
>> ZTSAVE("ASKSTAT" DEV+8*
ZTSK CONT+2, 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