Routine: AGUPCHK

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE (,IX1)^DIK ^DIR
IHS Patient Registration	1	$$S^AGVDF

Entry Points

External References

Name	Field # of Occurrence
$$S^AGVDF	HD
^DIC	SEL+4, CHK+5
^DIE	VERF, MV1+10, MV1+11, MV1+12
^DIK	MV1+7
IX1^DIK	MV1+6
^DIR	AGUPCHK+8, CHK+15, CONT, VERF+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will loop the old or unverified Insurers allowing you to check",!,"for a potential duplicate." Line Location: AGUPCHK+6
Function Call: WRITE	Prompt: !!," - If you indicate that an insurer is duplicate that the data for the ",!," duplicate insurer will be merged into the old insurer (previous address",!," information will be transfered to the billing address fields)." Line Location: AGUPCHK+7
Function Call: WRITE	Prompt: ! Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Dup-Check for: ",$P(AG("X0"),U),!?15,$P(AG("X0"),U,2) Line Location: CHK+0
Function Call: WRITE	Prompt: !?15,$P(AG("X0"),U,3),", " Line Location: CHK+1
Function Call: WRITE	Prompt: $P(^DIC(5,$P(AG("X0"),U,4),0),U,2)," ",$P(AG("X0"),U,5) Line Location: CHK+2
Function Call: WRITE	Prompt: !,"================================================" Line Location: CHK+3
Function Call: WRITE	Prompt: !,"_______________________________________________________________________________" Line Location: CHK+8
Function Call: WRITE	Prompt: !,"[1] ",$P(AG("X0"),U),?39,"\| [2] ",$P(Y,U,2) Line Location: CHK+9
Function Call: WRITE	Prompt: !," ",$P(AG("X0"),U,2),?39,"\| ",$P(AG("Y0"),U,2) Line Location: CHK+10
Function Call: WRITE	Prompt: ! Line Location: CHK+11
Function Call: WRITE	Prompt: " ",$P(AG("X0"),U,3),", " Line Location: CHK+11
Function Call: WRITE	Prompt: $P(^DIC(5,$P(AG("X0"),U,4),0),U,2)," ",$P(AG("X0"),U,5) Line Location: CHK+12
Function Call: WRITE	Prompt: ?39,"\| " Line Location: CHK+13
Function Call: WRITE	Prompt: $P(^(0),U,3),", ",$P(^DIC(5,$P(^(0),U,4),0),U,2)," ",$P(^AUTNINS(+Y,0),U,5) Line Location: CHK+13
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: CHK+14
Function Call: WRITE	Prompt: !,"OK, MERGING.." Line Location: CHK+16
Function Call: WRITE	Prompt: !! Line Location: CONT+0
Function Call: WRITE	Prompt: !!,"Re-directing Pointers..." Line Location: MV1+8
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: HD+0
Function Call: WRITE	Prompt: !?15,"*******************************************" Line Location: HD+1
Function Call: WRITE	Prompt: !?15,"* INSURER DUPLICATE CHECKER *" Line Location: HD+2
Function Call: WRITE	Prompt: !?15,"*******************************************" Line Location: HD+3
Routine Call	DIE Line Location: VERF MV1+10 MV1+11 MV1+12
Routine Call	DIC Line Location: SEL+4 CHK+5
Routine Call	DIR Line Location: AGUPCHK+8 CHK+15 CONT VERF+1

FileNo	Call Tags
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls
^AUTTPIC - [#9999999.65]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH("E"	MV1+11
^AUPNPRVT("I"	MV1+9, MV1+10
^AUTNINS - [#9999999.18]	TEMP, SEL+7, CHK+7, CHK+13, MOVE+1, MOVE+2, MV1+5*
^AUTTPIC("C"	MV1+12
^DIC(5 - [#5]	CHK+2, CHK+12, CHK+13

Name	Line Occurrences
CHK	TEMP, SEL+8, CONT
CONT	CHK+6, CHK+15
HD	AGUPCHK+5, SEL
MOVE	CHK+17
MV1	MOVE+1
SEL	SEL+6, SEL+9
VERF	CHK+17
XIT	AGUPCHK+8, TEMP+1, SEL+5, SEL+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	CHK+7*, MV1+1, MV1+7, MV1+9, MV1+10, MV1+11, MV1+12, XIT!
AG("A"	MV1+1*, MV1+2
AG("A1"	MV1+1, MV1+2, MV1+3, MV1+4
AG("ADD"	MOVE!, MOVE+2*, MV1+5
AG("B"	MV1*, MV1+2
AG("C"	MV1+3*
AG("I"	MOVE+2, MV1+5
AG("MODE"	AGUPCHK+9, SEL+1
AG("X0"	TEMP, SEL+7, CHK, CHK+1, CHK+2, CHK+9, CHK+10, CHK+11, CHK+12, CONT
AG("XIT"	TEMP, SEL+3, SEL+9, VERF+1*
AG("Y"	TEMP, SEL+7, VERF, MOVE+1, MOVE+2, MV1, MV1+5, MV1+6, MV1+10, MV1+11 , MV1+12
AG("Y0"	CHK+7*, CHK+10, CHK+13, VERF
AG("Z"	MV1+2*, MV1+4
>> AGZ("I"	TEMP, MV1+2, MV1+9, MV1+10, MV1+11, MV1+12
>> DA	VERF, MV1+6, MV1+7, MV1+10, MV1+11, MV1+12
>> DA(1	MV1+9*, MV1+10
>> DIC	SEL+3, CHK+5
>> DIC("A"	SEL+3, CHK+5
>> DIC("S"	SEL+3, CHK+5
>> DIC(0	SEL+3, CHK+5
>> DIE	VERF, MV1+10, MV1+11, MV1+12
>> DIK	MV1+6, MV1+7
DIR	AGUPCHK+8!, CHK+15!, CONT!, VERF+1!
DIR("A"	AGUPCHK+8, CHK+15, CONT, VERF+1
DIR("B"	AGUPCHK+8, CONT, VERF+1*
DIR(0	AGUPCHK+8, CHK+15, CONT, VERF+1
>> DR	VERF, MV1+10, MV1+11, MV1+12
U	AGUPCHK+4*, TEMP, CHK, CHK+1, CHK+2, CHK+9, CHK+10, CHK+11, CHK+12, CHK+13 , CONT, VERF, MOVE+1, MOVE+2, MV1+5
>> X	SEL+5
>> Y	AGUPCHK+8, SEL+6, SEL+7, CHK+6, CHK+7, CHK+9, CHK+13, CHK+15, CONT, VERF+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGUPCHK

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: