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

Package: IHS Patient Registration

Routine: AGMCRP3


Information

AGMCRP3 ; IHS/ASDS/EFG - PRINT ALPHA LIST OF MEDICARE/RAILROAD HOLDERS ;

Source Information

Source file <AGMCRP3.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient Registration 4 (CTR,LINES,NOW,RTRN)^AG  ^AGDICLK  ($$GETMCR,$$GETRRE)^AGUTL  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
END1
END
HDR
RR
DEV
START ;EP - From TaskMan.
PRINT ;Print a Patient's MEDICARE/RAILROAD file.
PTS ;

External References

Name Field # of Occurrence
^%ZIS DEV, START+12
^%ZISC DEV+1, DEV+3, END1
^%ZTLOAD DEV+3
KILL^%ZTLOAD END1
CTR^AG START+14, START+17
LINES^AG START+17
NOW^AG START+17
RTRN^AG START+18, END
^AGDICLK PRINT+7, PRINT+10, PRINT+11, PRINT+17, PRINT+19, PRINT+20, RR+1, RR+2, RR+6, RR+7
, RR+8
$$GETMCR^AGUTL PRINT+9
$$GETRRE^AGUTL RR
$$S^AGVDF END, HDR+1
^DIR PTS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!!,"TOTAL MEDICARE/RAILROAD RET. PATIENTS: ",AGTOT
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Function Call: WRITE
  • Prompt: "(REG) ",AGNM,?36,$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),?49
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: $$GETMCR^AGUTL(DFN)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"(MCR) "
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: AGMCRNM
  • Condition for execution: $D(AGMCRNM)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?64,AGMCRDB
  • Condition for execution: $D(AGMCRDB)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $$GETRRE^AGUTL(DFN)
  • Line Location: RR+0
Function Call: WRITE
  • Prompt: ?64
  • Line Location: RR+0
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: RR+0
Function Call: WRITE
  • Prompt: !,"(RR) "
  • Line Location: RR+3
Function Call: WRITE
  • Prompt: AGRRNM
  • Condition for execution: $D(AGRRNM)
  • Line Location: RR+3
Function Call: WRITE
  • Prompt: ?64,AGRRDB
  • Condition for execution: $D(AGRRDB)
  • Line Location: RR+3
Function Call: WRITE
  • Prompt: !,"(RR) "
  • Line Location: RR+6
Function Call: WRITE
  • Prompt: ?14,AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: RR+6
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: RR+9
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?17,"REGISTERED PATIENTS - MEDICARE/RAILROAD ACCOUNTS"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,AGUCI,!,AGTIME
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?17,"REPORT CONTAINS "_$S(AGPTS="B":"ALL BENEFICIARIES",AGPTS="A":"ATIENTS ONLY",AGPTS="D":"DECEASED AND INACTIVE PATIENTS ONLY")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!," NAME",?36,"CHART #",?49,"NUMBER",!,"(TYPE)",?14,"ELIG DATE END DATE",?64,"DATE OF BIRTH"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,AG("="),!
  • Line Location: HDR+6
Routine Call
  • DIR
  • Line Location:
    • PTS+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • START+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, START+13
^AUPNMCR - [#9000003] START+2, PRINT+3, PRINT+4, PRINT+14, PRINT+15
^AUPNPAT - [#9000001] START+5, START+7, START+9, PRINT+7
^AUPNRRE - [#9000005] RR+5
^AUTTLOC - [#9999999.06] DEV+2
^DIC(4 - [#4] START+15
^DPT - [#2] START+5, START+7, START+9, START+11
^TMP($J START+1!, START+11*, START+18, END1!, PRINT+7
^VA(200 - [#200] START+15

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END1 START+18
HDR START+17, START+18
PRINT START+18
RR PRINT+7
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
A END1!
AG DEV+3!, END1!
AG("-" PRINT+21, RR+9
AG("=" HDR+6
AG("DENT" END1!
AG("DRENT1" PRINT+17*, PRINT+19*, PRINT+20*, RR+6*, RR+7*, RR+8*
AG("HAT" AGMCRP3+5*, END!
AG("LKDATA" END1!
AG("LKPRINT" END1!, PRINT+7, PRINT+10, PRINT+11, PRINT+18, PRINT+19, PRINT+20, RR+1, RR+2, RR+6
, RR+7, RR+8
AG("LOC" START+15*, START+17!
AG("USR" START+15*, START+17!
AG("USRLOC" START+15*, END1!, HDR+1
AGBM START+15*, START+16*, START+18, END1!
>> AGCFLAG PRINT+2*, PRINT+5*, PRINT+6
>> AGCOV PRINT+4*, PRINT+5, PRINT+15*, PRINT+16
AGDOB END1!, PRINT+7!*, PRINT+9, RR
>> AGFLAG START+3*, START+7*, START+9*, START+10*, START+11
AGIO AGMCRP3+5*, DEV+3!, START+16, END1!
AGL END1!
AGMCRDB PRINT+11!*, PRINT+12!
AGMCRNM PRINT+10!*, PRINT+12!
AGNEW END1!
AGNM START+17*, START+18*, END1!, PRINT+7
AGPCC END1!
AGPGPG START+15*, END1!, HDR*, HDR+1
>> AGPTS PTS+4*, START+6, START+8, START+10, HDR+4
AGQIO DEV+2*, DEV+3!, START+12
AGRRDB RR+2!*, RR+3!
AGRRNM RR+1!*, RR+3!
AGTIME START+17*, END1!, HDR+3
AGTOT START+1*, START+11*, END, END1!
AGUCI START+15*, END1!, HDR+3
>> AGZ("I" START+12*, START+18*
DA END1!, PRINT+7*, PRINT+10*, PRINT+13*, RR+1*, RR+4*
DFN START+1*, START+2*, START+5, START+7, START+9, START+11, START+18*, END1!, PRINT+3, PRINT+4
, PRINT+7, PRINT+9, PRINT+10, PRINT+13, PRINT+14, PRINT+15, RR, RR+1, RR+4, RR+5
>> DFOUT START+18
DIC END1!, PRINT+7*, PRINT+10*, PRINT+13*, RR+1*, RR+4*
DIR PTS+3!
DIR("A" PTS+2*
DIR(0 PTS+1*
DR END1!, PRINT+7*, PRINT+10*, PRINT+11*, PRINT+17*, PRINT+19*, PRINT+20*, RR+1*, RR+2*, RR+6*
, RR+7*, RR+8*
>> DTOUT PTS+5, START+18
>> DUOUT START+18
DUZ START+15
DUZ(2 DEV+2, START+5, START+7, START+9, START+15, PRINT+7
G DEV+2*, DEV+3!, END1!
I END1!, PRINT+2*, PRINT+3*, PRINT+4, PRINT+14*, PRINT+15, PRINT+17, PRINT+19, PRINT+20, RR+5*
, RR+6, RR+7, RR+8
IO AGMCRP3+5, DEV+2, START+16, START+17
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, START+12*
IOSL START+15, START+16
IOST DEV+1
>> POP DEV, START+12
U DEV+2, START+7, START+9, START+11, START+15, PRINT+4, PRINT+7, PRINT+15
X START+13*, START+15, START+17*, END1!
Y PTS+4, PTS+5, DEV+2, START+13, END1!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END1
ZTRTN DEV+2*, DEV+3!
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All