Routine: AUPNELIG

Package	Total	Call Graph
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIE

Entry Points

External References

Name	Field # of Occurrence
^DIC	DIC+9, INSD3+1
FILE^DICN	ADD2
YN^DICN	INSD2+3, PAT+1, ADD+1
^DIE	INSD2+6, INSD2+7, ADD2+4, INSDIE+1, INSDIE+6, INSDIE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Searching POLICY HOLDER file ....",! Line Location: DIC+8
Function Call: WRITE	Prompt: ?15,$P(Y,U,2) Line Location: DIC+12
Function Call: WRITE	Prompt: 7,!!?10,"WARNING - Policy Numbers DO NOT MATCH!",7 Line Location: DIC+18
Function Call: WRITE	Prompt: !!?5,"Is the following person:",!!?10,"POLICY HOLDER",?25,"- ",$P(Y,U,2),!?10,"INSURANCE CO.",?25,"- " Line Location: INSD2+0
Function Call: WRITE	Prompt: $P(^AUTNINS(ABMDX("INSD"),0),U) Line Location: INSD2+0
Function Call: WRITE	Prompt: !?10,"POLICY NUMBER",?25,"- ",ABMDX("POLD") Line Location: INSD2+1
Function Call: WRITE	Prompt: !!?5,"the correct insured policy holder for ",$P(^DPT(ABMDX("PAT"),0),U) Line Location: INSD2+2
Function Call: WRITE	Prompt: *7,!!?15,"Enter 'Y' for YES or 'N' for NO" Line Location: INSD2+3
Function Call: WRITE	Prompt: !!,"Searching PATIENT file ...." Line Location: INSD3+1
Function Call: WRITE	Prompt: " ",$P(Y,U,2) Line Location: INSD3+3
Function Call: WRITE	Prompt: !!,"Is ",$P(Y,U,2)," the correct insured policy holder for ",$P(^DPT(ABMDX("PAT"),0),U) Line Location: PAT+0
Function Call: WRITE	Prompt: *7 Line Location: PAT+1
Function Call: WRITE	Prompt: !!?10,"No Lookup Match Found, or Improper Format for New Entry" Line Location: CHK+1
Function Call: WRITE	Prompt: !!,"Do you wish to add ",X," as the Insured Policy Holder" Line Location: ADD+0
Routine Call	DIE Line Location: INSD2+6 INSD2+7 ADD2+4 INSDIE+1 INSDIE+6 INSDIE+7
Routine Call	DIC Line Location: DIC+9 INSD3+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls
^AUPNMCD - [#9000004]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	DIC+13, INSDIE
^AUPNMCD - [#9000004]	DIC+4
^AUPNPRVT - [#9000006]	DIC+3
^AUTNINS - [#9999999.18]	DIC+6, INSD2
^DPT - [#2]	INSD2+2, PAT, PAT+2
^DPT("B"	ADD2+3

Label References

Name	Line Occurrences
ADD	INSD3+4
ADD2	PAT+2
CHK	INSD3+2
DIC	HLPPI, HLPMCD, PI
INSD2	DIC+15, DIC+17, INSD2+3
INSD3	DIC+11, DIC+16, INSD2+4
INSDIE	DIC+14, INSD2+9
PAT	PAT+1
XIT	DIC+10, CHK+1, ADD+1

Naked Globals

Name	Field # of Occurrence
^(0	DIC+3, DIC+4, DIC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIC+9, DIC+15, DIC+17, INSD2+3, INSD2+4, PAT+1, PAT+2, ADD+1*
ABMDX	HLPPI, HLPMCD, PI, MCD, DIC+1, DIC+2, DIC+3, DIC+4, DIC+8, DIC+10 , INSDIE+6, INSDIE+7, XIT!
ABMDX("DR"	ADD2+2, ADD2+3, ADD2+4, INSDIE*, INSDIE+1
ABMDX("INSD"	DIC+13*, DIC+14, DIC+15, DIC+16, INSD2, INSD2+6
ABMDX("INSP"	DIC+3, DIC+4, DIC+5, DIC+6*, DIC+14, DIC+16, INSD2+6, ADD2+4
ABMDX("PAT"	DIC+3, DIC+4, INSD2+2, PAT
ABMDX("POLD"	DIC+13*, DIC+14, DIC+17, DIC+18, INSD2+1, INSD2+7
ABMDX("POLP"	DIC+3, DIC+4, DIC+14, DIC+17, DIC+18, INSD2+7, ADD2+4
ABMDX("STATE"	DIC+4*, DIC+5, DIC+6
ABMDX("X"	DIC, DIC+11, DIC+16, INSD2+4, INSD2+5, INSD2+9, INSD3, INSD3+2, PAT+2, ADD2+5 , INSDIE+1, INSDIE+8
ABMDX("Y"	DIC+12, INSD2+5, INSD2+9, PAT, PAT+2, ADD2+1, ADD2+5, INSDIE, INSDIE+1, INSDIE+6 , INSDIE+7
ABMDX(0	DIC*, DIC+3, DIC+4, INSDIE+6, INSDIE+7
ABMDX(1	DIC+1*, DIC+3, INSDIE+6
>> AMBDX("X"	ADD2+1*
>> DA	DIC, INSD2+5, ADD2+4, INSDIE+1, INSDIE+6, INSDIE+7*
>> DA(1	DIC+1, INSDIE+6*
DD	ADD2!
DIC	DIC+2, INSD3!, ADD2*
DIC("S"	DIC+7*
DIC(0	DIC+2, INSD3, ADD2*
>> DIE	INSD2+5, ADD2+4, INSDIE+1, INSDIE+6, INSDIE+7*
DO	ADD2!
>> DR	INSD2+6, INSD2+7, ADD2+4, INSDIE+1, INSDIE+6, INSDIE+7
DT	DIC+2
DTIME	DIC+2
DUZ	DIC+2
>> L	CHK*
U	DIC+2, DIC+3, DIC+4, DIC+6, DIC+12, DIC+13, DIC+14, INSD2, INSD2+2, INSD2+5 , INSD3+3, INSD3+4, PAT, PAT+2, ADD2+1, INSDIE
X	DIC, DIC+2, DIC+11, DIC+14, DIC+16, INSD2+4, INSD2+9, INSD3, INSD3+2, INSD3+4 , PAT+2, CHK!, CHK+1, ADD, ADD+1!, ADD2+3, ADD2+5, INSDIE+1, INSDIE+8
>> Y	DIC+11, DIC+12, DIC+13, DIC+14, INSD2, INSD2+5, INSD2+9, INSD3+2, INSD3+3, INSD3+4 , PAT, ADD2+1, ADD2+4, ADD2+5

Customize PDF page

Package: IHS Patient

Routine: AUPNELIG

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: