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

Package: IHS Patient Registration

Routine: AGRPTPRV


Information

AGRPTPRV ; IHS/ASDS/EFG - PRIVATE INSURANCE REPORT ;

Source Information

Source file <AGRPTPRV.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
IHS Patient Registration 2 (CTR,NOW,RTRN)^AG  $$S^AGVDF  
VA Fileman 2 DD^%DT  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
END1
END
NAME
PT
DEV
START ;EP - From TaskMan.
FAC
PTS ;
HDR

External References

Name Field # of Occurrence
DD^%DT PT+3
^%ZIS DEV, START+15
^%ZISC DEV+1, DEV+3, END1
^%ZTLOAD DEV+3
KILL^%ZTLOAD END1
CTR^AG START+16, HDR+3, HDR+4
NOW^AG START+18
RTRN^AG START+19, PT, FAC, END, END+1
$$S^AGVDF END+1, HDR+1
^DIR PTS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"START WITH WHAT PATIENT NAME? "
  • Line Location: AGRPTPRV+4
Function Call: WRITE
  • Prompt: !!,"END WITH WHAT PATIENT NAME? "
  • Line Location: AGRPTPRV+6
Function Call: WRITE
  • Prompt: !!,*7,"THE ENDING NAME PRECEDES THE BEGINNING NAME."
  • Line Location: AGRPTPRV+7
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !?5,AGCO,?36,$P(AGINS,U,2),!?5,$P(AGINS,U,4)
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: ?36,$E($P(^(0),U),1,12)
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: ?53,Y
  • Line Location: PT+3
Function Call: WRITE
  • Prompt: ?67,Y,!
  • Line Location: PT+3
Function Call: WRITE
  • Prompt: ?5,$P(^AUTTPIC($P(AGINS,U,3),0),U)
  • Line Location: PT+4
Function Call: WRITE
  • Prompt: !!,"PATIENTS WITH PRIVATE INSURANCE : ",C,!!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !?5,AGCO,$E("........................................",1,40-$X-($L(^(AGCO)))),^(AGCO)
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !?31,"==========",!?35,$J(T,5)
  • Line Location: END+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),AG("USR"),?70,"page ",AGPGPG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,AG("LOC"),!?31,"PRIVATE INSURANCE"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+4
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+5
Function Call: WRITE
  • Prompt: !!!?5,"COMPANY",?36,"POLICY NUMBER",!?5,"NAME OF INSURED",?36,"RELATIONSHIP",?53,"FROM",?67,"TO",!?5,"COVERAGE",!?21,"CHART SITE",!,AG("="),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)," (cont.)"
  • Line Location: HDR+7
Routine Call
  • DIR
  • Line Location:
    • PTS+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • START+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, START+18
^AUPNPAT - [#9000001] START+7, START+9, START+11, FAC
^AUPNPRVT - [#9000006] START+4, PT
^AUTNINS - [#9999999.18] PT
^AUTTPIC - [#9999999.65] PT+4
^AUTTRLSH - [#9999999.36] PT+2
^DIC(4 - [#4] START+16, FAC
^DPT - [#2] START+7, START+9, START+11, START+13, NAME, HDR+7
^TMP($J START+3!, START+13*, START+19, NAME, PT+5*, END, END1!
^VA(200 - [#200] START+16

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END START+19
END1 START+19
FAC NAME
HDR START+19, NAME, PT, FAC, END
NAME START+19
PT NAME, PT, PT+6
START DEV+1

Naked Globals

Name Field # of Occurrence
^( PT, PT+5, FAC, END
^(0 PT, PT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
A NAME*, PT*, END1!
AG DEV+3!, END1!
AG("-" PTS+2*, FAC
AG("=" PTS+1*, HDR+6
AG("DENT" END1!
AG("HAT" PTS+9*, END+1!
AG("LKDATA" END1!
AG("LKERR" END1!
AG("LKPRINT" END1!
AG("LOC" START+16*, END1!, HDR+2
AG("USR" START+16*, END1!, HDR+1
AGBEG DEV+2, DEV+3!, END1!
AGBM START+16*, START+19, PT, FAC, END1!
AGCO PT*, PT+1, PT+5, END*, END1!
AGCONT START+16*, PT*, FAC*, END1!, HDR+7*
AGEND DEV+2, DEV+3!, END1!
>> AGFLAG START+5*, START+9*, START+11*, START+12*, START+13
AGINS PT*, PT+1, PT+2, PT+3, PT+4, END1!
AGIO PTS+9*, DEV+3!, START+16, END1!
AGL END1!
AGNM START+16*, START+19*, NAME, END1!
AGPCC END1!
AGPGPG START+16*, END1!, HDR*, HDR+1
>> AGPTS PTS+6*, START+8, START+10, START+12, HDR+5
AGQIO DEV+2*, DEV+3!, START+15
AGTIME START+18*, END1!, HDR+4
>> AGTOT START+3*, START+13*
AGTTL START+18*, END1!
AGUCI START+18*, END1!, HDR+3
>> AGZ("I" START+15*
C START+19*, END, END1!
DA END1!
DFN START+3*, START+4*, START+7, START+9, START+11, START+13, NAME*, PT, FAC, END1!
, HDR+7
>> DFOUT START+19, NAME, PT, FAC
DIC END1!
DIR PTS+5!
DIR("A" PTS+4*
DIR(0 PTS+3*
DLOUT END1!
DR END1!
>> DTOUT PTS+7, START+19, NAME, PT, FAC
>> DUOUT START+19, NAME, PT, FAC
DUZ START+16
DUZ(2 START+7, START+9, START+11, START+16
G DEV+2*, DEV+3!, END1!
I FAC*, END*, END1!
IO PTS+9, DEV+2, START+16
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, START+15*
IOSL START+16
IOST DEV+1
>> POP DEV, START+15
R FAC*, END1!
>> T END*, END+1
U START+9, START+11, START+13, START+16, NAME, PT, PT+1, PT+2, PT+3, PT+4
, FAC, HDR+7
X START+16*, START+18*, END1!, HDR+3*, HDR+4*
Y PTS+6, PTS+7, DEV+2, START+18, PT+3*, END1!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END1
ZTRTN DEV+2*, DEV+3!
ZTSAVE 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 |  Naked Globals |  Local Variables |  All