Routine: AGEDPRVU

Information

AGEDPRVU ;IHS/ASDS/TPF - EDIT/DISPLAY PRIVATE INSURANCE UTIL ;

Source file <AGEDPRVU.m>

Package	Total	Call Graph
IHS Patient Registration	2	($$DTEST,PROGVIEW)^AGUTILS $$S^AGVDF

Package	Total	Caller Graph
IHS Patient Registration	1	AGEDPRV

Name	Comments	DBIA/ICR reference
HDR(ID0)	;EP - CALLED BY AGEDPRV

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+10
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+14
Function Call: WRITE	Prompt: ?36,"Private Insurance" Line Location: HDR+16
Function Call: WRITE	Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+17
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+20
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+21
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(ID0) Line Location: HDR+22
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+23
Function Call: WRITE	Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")" Line Location: HDR+26
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+27

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDR+4, HDR+5, HDR+25
^AUPNPRVT - [#9000006]	HDR+1
^DIC(4 - [#4]	HDR+17
^DPT - [#2]	HDR+3

Name	Field # of Occurrence
^(0	HDR+1, HDR+5

Name	Field # of Occurrence
>> AG("AUPN"	HDR+5, HDR+6
>> AG("EDIT"	HDR+29!
>> AGCHRT	HDR+4*, HDR+23
>> AGELP("INS"	HDR+1*
>> AGELP("PH"	HDR+1*
>> AGELSTS	HDR+25*, HDR+26
>> AGLINE("-"	HDR+7, HDR+18
>> AGLINE("EQ"	HDR+8, HDR+19, HDR+20, HDR+27
>> AGLINE("PGLN"	HDR+9*
>> AGPAT	HDR+3*, HDR+21
>> AGSEENLY	HDR+14
>> AGSELECT	HDR+1, HDR+12
>> DA	HDR+28*
DUZ	HDR+13
DUZ(2	HDR+4, HDR+17
ID0	HDR~, HDR+1, HDR+2, HDR+3, HDR+4, HDR+5, HDR+22, HDR+25, HDR+28
INSREC	HDR+1*, HDR+29!
>> ROUTID	HDR+11*
>> SUBS	HDR+12*, HDR+13
U	HDR+1, HDR+3, HDR+4, HDR+12, HDR+17, HDR+25

Name	Field # of Occurrence
$T(	HDR+11