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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGOV64

Package: IHS Patient Registration

Routine: AGOV64


Information

AGOV64 ; IHS/ASDS/EFG - PRINT ALL PATS OVER 64 WITH MEDICARE/RAILROAD/SOC SEC NUMBERS ;

Source Information

Source file <AGOV64.m>

Call Graph

Call Graph Total: 8

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

Entry Points

Name Comments DBIA/ICR reference
RRENM
END
HDR
CKRRE
RRE
RRE1
START ;EP - From TaskMan.
SSN ;S DIC=2,DR=.09,DA=DFN D ^AGDICLK I $D(AG("LKDATA")) S:$L(AG("LKDATA"))=9 AG("LKDATA")=$E(AG("LKDATA"),1,3)_"-"_$E(AG("LKDATA"),4,5)_"-"_$E(AG("LKDATA"),6,99) W ?67,AG("LKDATA")
DEV
ADDR1
PRINT
WRRE
MCR
PMCNM

External References

Name Field # of Occurrence
^%ZIS DEV, START+20
^%ZISC DEV+1, DEV+3, END
^%ZTLOAD DEV+3
KILL^%ZTLOAD END
CTR^AG START+24
LINES^AG START+23
NOW^AG START+23
RTRN^AG START+34, START+38
$$GETMCR^AGUTL MCR+2
$$GETRRE^AGUTL WRRE+1
$$ISMBI^AGUTL MCR+2, WRRE+1
$$S^AGVDF START+38, HDR
$$GET1^DIQ SSN+1
^DIR AGOV64+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGOV64+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGOV64+16
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,J," ",$P($G(^DPT(J,0)),U)
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"Total patients 65 yrs or older: ",AGTOT,!!,"Total patients 65 or older with Medicare: ",AGTOTM,!!,"Total patients 65 or older with Railroad Ret: ",AGTOTR
  • Line Location: START+38
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: START+38
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),U)," (",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),")"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?35,AGPHONE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?49,"M=",AGMCRNO,"-"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?49,$S($L(AGMCRNO):"M="_AGMCRNO,1:"NO NUMBER ")
  • Line Location: MCR+4
Function Call: WRITE
  • Prompt: ?67,AG("LKDATA")
  • Line Location: SSN+0
Function Call: WRITE
  • Prompt: ?67,$$GET1^DIQ(9000001,DFN_",",1107.3)
  • Line Location: SSN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CKRRE+0
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: ADDR1+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!,AG("USRLOC"),?70,"page ",AGPGPG,!?26,"PATIENTS 65 YRS OLD AND OLDER",!,AGTIME,!!?51,"MEDICARE(M)",?69,"SOCIAL",!,"NAME (CHART #)",?35,"HOME PHONE",?51,"RAILROAD(R)",?66,"SECURITY NO.",!,AG("="),!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?49,"R="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P(^AUTTRRP($P(^AUPNRRE(DFN,0),U,3),0),U),"-"
  • Condition for execution: $P(^AUPNRRE(DFN,0),U,3)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: AGRRNO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?49,$S($L(AGRRNO):"R="_AGRRNO,1:"NO NUMBER ")
  • Line Location: WRRE+3
Routine Call
  • DIR
  • Line Location:
    • AGOV64+12
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • START+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^AUPNMCR - [#9000003] MCR+1, RRE1, PMCNM
^AUPNPAT - [#9000001] START+16, START+18, PRINT, PRINT+1
^AUPNRRE - [#9000005] RRE1, CKRRE, RRE, RRENM
^AUTTLOC - [#9999999.06] DEV+2
^DIC(4 - [#4] START+21
^DIC(5 - [#5] SSN+3
^DPT - [#2] START+18, PRINT, PRINT+2, SSN+2, SSN+3, ADDR1
^DPT("ADOB" START+5, START+15
^TMP($J START+2!, START+18*, START+28, START+29, END!
^VA(200 - [#200] START+21

Label References

Name Line Occurrences
ADDR1 RRE
CKRRE SSN+2
DEV DEV+1, DEV+3
HDR START+24, START+34
PMCNM ADDR1+1
PRINT START+33
RRE SSN+3
RRE1 MCR+1
RRENM ADDR1+1
SSN MCR+5
START DEV+1
WRRE RRE1, RRE

Naked Globals

Name Field # of Occurrence
^( PRINT+2
^(0 SSN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
A END!
AG DEV+3!, END!
AG("-" ADDR1+1
AG("64" START+1*, START+5
AG("=" HDR
AG("ADDR" SSN+3*, ADDR1*
AG("HAT" AGOV64+5*, START+35!, START+38!
AG("LKDATA" END!
AG("LKPRINT" END!
AG("LOC" START+2!, START+21*, START+22!
AG("USR" START+2!, START+21*, START+22!
AG("USRLOC" START+21*, END!, HDR
>> AGA SSN+3*, ADDR1
AGBM START+21*, START+34, END!
>> AGINACT AGOV64+14*, START+16
AGIO AGOV64+5*, DEV+3!, START+21, END!
AGISMBI MCR+2*, MCR+3, MCR+5!, WRRE+1*, WRRE+2, WRRE+4!
AGL END!
AGMCRNM PMCNM!*
AGMCRNO MCR+2*, MCR+3*, MCR+4, MCR+5!
AGPCC END!
AGPGPG START+1*, END!, HDR*
AGPHONE PRINT+2*!
>> AGQIO DEV+2*, START+20
AGRRESW START+30*, END!, RRE1*, CKRRE, RRE
AGRRNM RRENM!*
AGRRNO WRRE+1*, WRRE+2*, WRRE+3, WRRE+4!
AGTIME START+24*, END!, HDR
AGTOT START+1*, START+38, END!, PRINT*
AGTOTM START+1*, START+38, END!, MCR+5*
AGTOTR START+1*, START+38, END!, WRRE+4*
>> AGZ("I" START+20*
DA END!
DFN START+29*, END!, PRINT, PRINT+1, PRINT+2, MCR+1, MCR+2, RRE1, SSN+1, SSN+2
, SSN+3, CKRRE, RRE, ADDR1, WRRE+1, PMCNM, RRENM
DFOUT START+26!, START+28, START+34, START+36
DIC END!
DIR AGOV64+8!, AGOV64+15!
DIR("A" AGOV64+10*
DIR("B" AGOV64+11*
DIR(0 AGOV64+9*
DLOUT END!
DR END!
DT START+1, START+17
DTOUT AGOV64+13, AGOV64+15!, START+26!, START+28, START+34, START+36
DUOUT AGOV64+13, AGOV64+15!, START+26!, START+28, START+34, START+36
DUZ START+21
DUZ(2 DEV+2, START+16, START+18, START+21, PRINT, PRINT+1
G DEV+2*, END!
I START+5*, START+15, START+17, END!
IO AGOV64+5, DEV+2, START+21, START+22
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, START+20*
IOSL START+21
IOST DEV+1
J START+15*, START+16, START+18, END!
>> MCDREC START+31*
>> NAME START+18*, START+27*, START+28*, START+29
>> POP DEV, START+20
>> PRVTREC START+32*
U DEV+2, START+16, START+18, START+21, PRINT, PRINT+1, PRINT+2, SSN+3, ADDR1, PMCNM
, RRENM
X START+24*, END!
Y AGOV64+14, DEV+2, END!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END
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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All