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

Package: IHS Patient Registration

Routine: AGMCRP


Information

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

Source Information

Source file <AGMCRP.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+24
^%ZISC DEV+1, DEV+3, END1
^%ZTLOAD DEV+3
KILL^%ZTLOAD END1
CTR^AG START+26, START+29
LINES^AG START+29
NOW^AG START+29
RTRN^AG START+30, END
^AGDICLK PRINT+1, PRINT+4, PRINT+5, PRINT+9, PRINT+11, PRINT+12, RR+1, RR+2, RR+6, RR+7
, RR+8
$$GETMCR^AGUTL PRINT+3
$$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+1
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: $$GETMCR^AGUTL(DFN)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"(MCR) "
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: AGMCRNM
  • Condition for execution: $D(AGMCRNM)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?64,AGMCRDB
  • Condition for execution: $D(AGMCRDB)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?64
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: AGDOB
  • Condition for execution: $D(AGDOB)
  • Line Location: PRINT+15
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":"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+24

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END1 START+30
HDR START+29, START+30
PRINT START+30
RR PRINT+1
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+13, RR+9
AG("=" HDR+6
AG("DENT" END1!
AG("DRENT1" PRINT+9*, PRINT+11*, PRINT+12*, RR+6*, RR+7*, RR+8*
AG("HAT" AGMCRP+5*, END!
AG("LKDATA" END1!
AG("LKPRINT" END1!, PRINT+1, PRINT+4, PRINT+5, PRINT+10, PRINT+11, PRINT+12, RR+1, RR+2, RR+6
, RR+7, RR+8
AG("LOC" START+27*, START+29!
AG("USR" START+27*, START+29!
AG("USRLOC" START+27*, END1!, HDR+1
AGBM START+27*, START+28*, START+30, END1!
AGDOB END1!, PRINT+1!*, PRINT+3, RR
>> AGFLAG START+3*, START+7*, START+9*, START+10*, START+11, START+14*, START+18*, START+20*, START+21*, START+22
AGIO AGMCRP+5*, DEV+3!, START+28, END1!
AGL END1!
AGMCRDB PRINT+5!*, PRINT+6!
AGMCRNM PRINT+4!*, PRINT+6!
AGNEW END1!
AGNM START+29*, START+30*, END1!, PRINT+1
AGPCC END1!
AGPGPG START+27*, END1!, HDR*, HDR+1
>> AGPTS PTS+4*, START+6, START+8, START+10, START+17, START+19, START+21, HDR+4
AGQIO DEV+2*, DEV+3!, START+24
AGRRDB RR+2!*, RR+3!
AGRRNM RR+1!*, RR+3!
AGTIME START+29*, END1!, HDR+3
AGTOT START+1*, START+11*, START+23*, END, END1!
AGUCI START+27*, END1!, HDR+3
>> AGZ("I" START+24*, START+30*
DA END1!, PRINT+1*, PRINT+4*, PRINT+7*, RR+1*, RR+4*
DFN START+1*, START+2*, START+5, START+7, START+9, START+11, START+12*, START+13*, START+16, START+18
, START+20, START+22, START+23, START+30*, END1!, PRINT+1, PRINT+3, PRINT+4, PRINT+7, PRINT+8
, RR, RR+1, RR+4, RR+5
>> DFOUT START+30
DIC END1!, PRINT+1*, PRINT+4*, PRINT+7*, RR+1*, RR+4*
DIR PTS+3!
DIR("A" PTS+2*
DIR(0 PTS+1*
>> DPT( START+16
DR END1!, PRINT+1*, PRINT+4*, PRINT+5*, PRINT+9*, PRINT+11*, PRINT+12*, RR+1*, RR+2*, RR+6*
, RR+7*, RR+8*
>> DTOUT PTS+5, START+30
>> DUOUT START+30
DUZ START+27
DUZ(2 DEV+2, START+5, START+7, START+9, START+16, START+18, START+20, START+27, PRINT+1
G DEV+2*, DEV+3!, END1!
I END1!, PRINT+8*, PRINT+9, PRINT+11, PRINT+12, RR+5*, RR+6, RR+7, RR+8
IO AGMCRP+5, DEV+2, START+28, START+29
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, START+24*
IOSL START+27, START+28
IOST DEV+1
>> POP DEV, START+24
U DEV+2, START+7, START+9, START+11, START+18, START+20, START+22, START+23, START+27, PRINT+1
X START+25*, START+27, START+29*, END1!
Y PTS+4, PTS+5, DEV+2, START+25, 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