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

Package: IHS Patient Registration

Routine: AGAGERP


Information

AGAGERP ; VNGT/IHS/DLS - Patient Age Specific Report ; April 29, 2010

Source Information

Source file <AGAGERP.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 3 RTRN^AG  GETDATA^AGAGERP1  PRINT^AGAGERP2  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 DD^%DT  $$GET1^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ASKVIS ; Prompts to get Visits within date range
ASKAGE ; Prompts to get Age Range
ASKALT ; Prompts to get Alt Resource
ASKINS ; Get Insurer Information
ASKDAT ; Prompts to get date type
ASKPOI ; Prompt for Elig date
EXCLIST ; List Exclusion Paramenters selected so far.
DEV ;
PLOOP ; For looping back to paremeter menu.
GO ; Proceed with processing
INTRO ; Introduction Screen
EXIT ; Clean up variables and exit
ASKPNT ; Get Patient Information for one patient
GETPARAM ; Main Report Driver
VAR
QUE ;QUE TO TASKMAN
ASKLOC ; Prompts to get location
ASKELI ; Prompts to get eligibility status

External References

Name Field # of Occurrence
DD^%DT ASKVIS+13, ASKVIS+21, ASKVIS+26, ASKPOI+19, ASKPOI+20
^%ZIS DEV+2, DEV+3
HOME^%ZIS DEV+4, DEV+8
^%ZISC DEV+7
^%ZTLOAD QUE+4
RTRN^AG PLOOP+11, INTRO+3
GETDATA^AGAGERP1 GO+1
PRINT^AGAGERP2 GO+2
$$GET1^DIQ ASKLOC+8, ASKPNT+9, ASKINS+8
^DIR GETPARAM+14, ASKLOC+5, ASKALT+16, ASKDAT+7, ASKVIS+8, ASKVIS+17, ASKPOI+14, ASKAGE+10, ASKELI+9, ASKPNT+5
, ASKINS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ============================================================================"
  • Line Location: PLOOP+4
Function Call: WRITE
  • Prompt: !," An Alternate Resource of 'MEDICARE', 'MEDICAID', 'PRIVATE INSURANCE',"
  • Line Location: PLOOP+5
Function Call: WRITE
  • Prompt: !," 'SPECIFIC INSURER', 'WORKMEN'S COMP', 'PRIVATE & WORKMEN'S COMP', or 'CHIP'"
  • Line Location: PLOOP+6
Function Call: WRITE
  • Prompt: !," must be selected when entering a Point in Time date. Patients with eligibil-"
  • Line Location: PLOOP+7
Function Call: WRITE
  • Prompt: !," ity up to 3 years before the date entered will be included in the selection"
  • Line Location: PLOOP+8
Function Call: WRITE
  • Prompt: !," process."
  • Line Location: PLOOP+9
Function Call: WRITE
  • Prompt: !," ============================================================================",!
  • Line Location: PLOOP+10
Function Call: WRITE
  • Prompt: !!!," NOTE: To run this report you must select at least one parameter."
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !," If no parameters are selected, you will return to the reports menu.",!
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GETPARAM+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EXCLIST+1
Function Call: WRITE
  • Prompt: " EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:"
  • Line Location: EXCLIST+2
Function Call: WRITE
  • Prompt: !," ======================================================================="
  • Line Location: EXCLIST+3
Function Call: WRITE
  • Prompt: !," - ",EXCLS
  • Line Location: EXCLIST+6
Function Call: WRITE
  • Prompt: AGDOTLN,": ",$P($G(EXCL(EXCLS)),U,2)
  • Line Location: EXCLIST+10
Function Call: WRITE
  • Prompt: " - ",$P($G(EXCL(EXCLS)),U,4)
  • Line Location: EXCLIST+11
Function Call: WRITE
  • Prompt: " - ",$P($G(EXCL(EXCLS)),U,4)
  • Line Location: EXCLIST+12
Function Call: WRITE
  • Prompt: !!," ============ Entry of VISIT DATE Range ===========",!
  • Line Location: ASKVIS+4
Function Call: WRITE
  • Prompt: "// ",Y(0)
  • Line Location: ASKVIS+11
Function Call: WRITE
  • Prompt: "// ",Y(0)
  • Line Location: ASKVIS+20
Function Call: WRITE
  • Prompt: !!," To Date must be after From Date. Please try again."
  • Line Location: ASKVIS+23
Function Call: WRITE
  • Prompt: !!," =========== Point in Time Date for Alternate Resource Eligibility:============"
  • Line Location: ASKPOI+4
Function Call: WRITE
  • Prompt: !," An Alternate Resource of 'MEDICARE', 'MEDICAID', 'PRIVATE INSURANCE',"
  • Line Location: ASKPOI+5
Function Call: WRITE
  • Prompt: !," 'SPECIFIC INSURER', 'WORKMEN'S COMP', 'PRIVATE & WORKMEN'S COMP', or 'CHIP'"
  • Line Location: ASKPOI+6
Function Call: WRITE
  • Prompt: !," must be selected when entering a Point in Time date. Patients with eligibil-"
  • Line Location: ASKPOI+7
Function Call: WRITE
  • Prompt: !," ity up to 3 years before the date entered will be included in the selection"
  • Line Location: ASKPOI+8
Function Call: WRITE
  • Prompt: !," process."
  • Line Location: ASKPOI+9
Function Call: WRITE
  • Prompt: !," ===============================================================================",!
  • Line Location: ASKPOI+10
Function Call: WRITE
  • Prompt: "// ",Y(0)
  • Line Location: ASKPOI+17
Function Call: WRITE
  • Prompt: !!?5,"Report Cancelled!"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !!?5,"Task # ",ZTSK," queued.",!
  • Line Location: QUE+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
    • DEV+8
Routine Call
  • DIR
  • Line Location:
    • GETPARAM+14
    • ASKLOC+5
    • ASKALT+16
    • ASKDAT+7
    • ASKVIS+8
    • ASKVIS+17
    • ASKPOI+14
    • ASKAGE+10
    • ASKELI+9
    • ASKPNT+5
    • ASKINS+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^AUTNINS - [#9999999.18] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("AGAGERP" VAR+1!, EXIT+2!

Label References

Name Line Occurrences
@( GETPARAM+18, ASKDAT+12
ASKINS ASKALT+17
ASKPNT ASKALT+18
ASKVIS ASKVIS+25
EXCLIST GETPARAM+2
EXIT PLOOP+2, GO+3
GETPARAM PLOOP+1, GETPARAM+20
GO DEV+6
INTRO VAR+5
PLOOP PLOOP+3
QUE DEV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
AGDOTLN EXCLIST+4~, EXCLIST+8*, EXCLIST+9*, EXCLIST+10
AGDOTS EXCLIST+4~, EXCLIST+7*, EXCLIST+9
AGINS VAR~
AGLINE VAR~
DIR PLOOP+11!, GETPARAM+4!, GETPARAM+14!, ASKLOC+1!, ASKLOC+5!, ASKALT+2!, ASKALT+16!, ASKDAT+2!, ASKDAT+7!, ASKVIS+1!
, ASKVIS+8!, ASKVIS+17!, ASKPOI+1!, ASKPOI+14!, ASKAGE+1!, ASKAGE+10!, ASKELI+1!, ASKELI+9!, ASKPNT+1!, ASKPNT+5!
, ASKINS+1!, EXIT+1!
DIR("A" GETPARAM+5*, ASKLOC+3*, ASKALT+3*, ASKDAT+3*, ASKVIS+5*, ASKVIS+14*, ASKPOI+11*, ASKAGE+2*, ASKELI+2*, ASKPNT+3*
, ASKINS+3*
DIR("B" ASKLOC+4*, ASKALT+4*, ASKVIS+6*, ASKVIS+15*, ASKPOI+12*, ASKAGE+3*, ASKELI+3*, ASKPNT+4*, ASKINS+4*
DIR("L" GETPARAM+7*, GETPARAM+8*, GETPARAM+9*, GETPARAM+10*, GETPARAM+11*, GETPARAM+12*, GETPARAM+13*, ASKALT+6*, ASKALT+7*, ASKALT+8*
, ASKALT+9*, ASKALT+10*, ASKALT+11*, ASKALT+12*, ASKALT+13*, ASKALT+14*, ASKALT+15*, ASKDAT+5*, ASKDAT+6*, ASKAGE+5*
, ASKAGE+6*, ASKAGE+7*, ASKAGE+8*, ASKAGE+9*, ASKELI+5*, ASKELI+6*, ASKELI+7*, ASKELI+8*
DIR(0 GETPARAM+6*, ASKLOC+2*, ASKALT+5*, ASKDAT+4*, ASKVIS+7*, ASKVIS+16*, ASKPOI+13*, ASKAGE+4*, ASKELI+4*, ASKPNT+2*
, ASKINS+2*
EXCL VAR~, PLOOP+2, GETPARAM+2, GETPARAM+16!, EXIT+1!
EXCL( EXCLIST+5, EXCLIST+10, EXCLIST+11, EXCLIST+12
EXCL("Age Ran ge" , ASKAGE+3, ASKAGE+11!, ASKAGE+13*
EXCL("Alterna te Resource" , PLOOP+3, ASKALT+4, ASKALT+17*, ASKALT+19!, ASKALT+21*, ASKPNT+6!, ASKPNT+7!, ASKINS+6!, ASKINS+7!
EXCL("Elig Da te Range" , PLOOP+3, ASKVIS+2!, ASKPOI+12, ASKPOI+15!, ASKPOI+21*
EXCL("Eligibi lity Status" , ASKELI+3, ASKELI+10!, ASKELI+12*
EXCL("Location" ASKLOC+4, ASKLOC+6!, ASKLOC+8*
EXCL("Specifi c Insurer" , ASKINS+4, ASKINS+7!, ASKINS+8*, c Patient" , ASKPNT+4, ASKPNT+7!, ASKPNT+10*
EXCL("Visit D ate Range" , ASKVIS+6, ASKVIS+9!, ASKVIS+15, ASKVIS+18!, ASKVIS+24!, ASKVIS+27*, ASKPOI+2!
EXCLS VAR~, EXCLIST+4~, EXCLIST+5*, EXCLIST+6, EXCLIST+7, EXCLIST+10, EXCLIST+11, EXCLIST+12
IO DEV+5
IO("Q" DEV+4, QUE+1!
IOF GETPARAM+1
ION DEV+3
IOP DEV+3~*
PNAME ASKPNT+8~, ASKPNT+9*, ASKPNT+10
>> POP DEV+3
TAG VAR~, GETPARAM+3~, GETPARAM+17*, GETPARAM+18, GETPARAM+19!, ASKDAT+1~, ASKDAT+9*, ASKDAT+10*, ASKDAT+11*, ASKDAT+12
, ASKDAT+13!, EXIT+1!
U EXCLIST+10, EXCLIST+11, EXCLIST+12, ASKLOC+4, ASKLOC+8, ASKALT+21, ASKVIS+27, ASKPOI+21, ASKELI+12, ASKPNT+4
, ASKPNT+10, ASKINS+8
X GETPARAM+3~, ASKLOC+6, ASKLOC+7, ASKALT+1~, ASKALT+17, ASKALT+18, ASKALT+19, ASKALT+20, ASKDAT+8, ASKVIS+9
, ASKVIS+10, ASKVIS+18, ASKVIS+19, ASKPOI+15, ASKPOI+16, ASKAGE+11, ASKAGE+12, ASKELI+10, ASKELI+11, ASKPNT+6
, ASKPNT+7, ASKINS+6, ASKINS+7, EXIT+1!
Y GETPARAM+3~, GETPARAM+15, GETPARAM+16, ASKLOC+8, ASKALT+1~, ASKALT+21, ASKDAT+10, ASKDAT+11, ASKVIS+12, ASKVIS+13*
, ASKVIS+21, ASKVIS+26*, ASKPOI+18, ASKPOI+19*, ASKPOI+20*, ASKAGE+13, ASKELI+12, ASKPNT+9, ASKPNT+10, ASKINS+8
, EXIT+1!
Y(0 GETPARAM+17, ASKALT+21, ASKDAT+9, ASKVIS+11, ASKVIS+20, ASKPOI+17, ASKAGE+13, ASKELI+12
Y1 ASKVIS+3~, ASKVIS+12*, ASKVIS+13, ASKVIS+22, ASKVIS+27, ASKPOI+3~, ASKPOI+18*, ASKPOI+19, ASKPOI+21
Y2 ASKVIS+3~, ASKVIS+13*, ASKVIS+27, ASKPOI+3~, ASKPOI+18*, ASKPOI+20, ASKPOI+21
Y3 ASKVIS+3~, ASKVIS+21*, ASKVIS+22, ASKVIS+26, ASKVIS+27, ASKPOI+3~, ASKPOI+19*, ASKPOI+21
Y4 ASKVIS+3~, ASKVIS+21*, ASKVIS+26*, ASKVIS+27, ASKPOI+3~, ASKPOI+20*, ASKPOI+21
>> ZTDESC QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("*" QUE+3*
ZTSK QUE+4!, QUE+5, QUE+6
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