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

Package: IHS Patient Registration

Routine: AGMCRP2


Information

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

Source Information

Source file <AGMCRP2.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 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+24, END
^AGDICLK PRINT+8, PRINT+11, PRINT+12, PRINT+20, PRINT+22, PRINT+23, RR+1, RR+2, RR+6, RR+7
, RR+8
$$GETMCR^AGUTL PRINT+10
$$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 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+8
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • 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: $$GETMCR^AGUTL(DFN)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"(MCR) "
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: AGMCRNM
  • Condition for execution: $D(AGMCRNM)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?64,AGMCRDB
  • Condition for execution: $D(AGMCRDB)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+26
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 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":"ACTIVE PATIENTS 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",?34,"COVERAGE",?49,"ELIG 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+5, PRINT+16, PRINT+18
^AUPNPAT - [#9000001] START+5, START+7, START+9, PRINT+8
^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+19, START+21, END1!, PRINT+8
^VA(200 - [#200] START+15

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END START+27
END1 START+25
HDR START+17, START+26
PRINT START+22
RR PRINT+8
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+24, RR+9
AG("=" HDR+6
AG("DENT" END1!
AG("DRENT1" PRINT+20*, PRINT+22*, PRINT+23*, RR+6*, RR+7*, RR+8*
AG("HAT" AGMCRP2+5*, END!
AG("LKDATA" END1!
AG("LKPRINT" END1!, PRINT+8, PRINT+11, PRINT+12, PRINT+21, PRINT+22, PRINT+23, 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+23, END1!
>> AGCFLAG PRINT+2*, PRINT+6*, PRINT+7
>> AGCOV PRINT+4*, PRINT+5*, PRINT+6, PRINT+17*, PRINT+18*, PRINT+19
AGDOB END1!, PRINT+8!*, PRINT+10, RR
>> AGFLAG START+3*, START+7*, START+9*, START+10*, START+11
AGIO AGMCRP2+5*, DEV+3!, START+16, END1!
AGL END1!
AGMCRDB PRINT+12!*, PRINT+13!
AGMCRNM PRINT+11!*, PRINT+13!
AGNEW END1!
AGNM START+17*, START+19*, START+21, END1!, PRINT+8
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!
>> AGSTOP START+18*, START+19, START+21, START+25*, START+27
AGTIME START+17*, END1!, HDR+3
AGTOT START+1*, START+11*, END, END1!
AGUCI START+15*, END1!, HDR+3
>> AGZ("I" START+12*
DA END1!, PRINT+8*, PRINT+11*, PRINT+14*, RR+1*, RR+4*
DFN START+1*, START+2*, START+5, START+7, START+9, START+11, START+20*, START+21*, END1!, PRINT+3
, PRINT+5, PRINT+8, PRINT+10, PRINT+11, PRINT+14, PRINT+16, PRINT+18, RR, RR+1, RR+4
, RR+5
>> DFOUT START+25
DIC END1!, PRINT+8*, PRINT+11*, PRINT+14*, RR+1*, RR+4*
DIR PTS+3!
DIR("A" PTS+2*
DIR(0 PTS+1*
DR END1!, PRINT+8*, PRINT+11*, PRINT+12*, PRINT+20*, PRINT+22*, PRINT+23*, RR+1*, RR+2*, RR+6*
, RR+7*, RR+8*
>> DTOUT PTS+5, START+25
>> DUOUT START+25
DUZ START+15
DUZ(2 DEV+2, START+5, START+7, START+9, START+15, PRINT+8
G DEV+2*, DEV+3!, END1!
I END1!, PRINT+2*, PRINT+3*, PRINT+5, PRINT+15*, PRINT+16*, PRINT+18, PRINT+20, PRINT+22, PRINT+23
, RR+5*, RR+6, RR+7, RR+8
IO AGMCRP2+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+5, PRINT+8, PRINT+18
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