Routine: VENPCCD1

Package	Total	Call Graph
IHS Patient Registration	7	^AGED4 VAR^AGED4A ^AGED5 ^AGED6 ^AGED7 DFN^AGEDIT ^AGVAR
VA Fileman	3	DD^%DT NOW^%DTC ^DIE
Kernel	1	$$VERSION^XPDUTL

Package

Total

Call Graph

IHS Patient Registration

^AGED4 VAR^AGED4A ^AGED5 ^AGED6 ^AGED7 DFN^AGEDIT ^AGVAR

VA Fileman

DD^%DT NOW^%DTC ^DIE

Kernel

$$VERSION^XPDUTL

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCD

Package

Total

Caller Graph

PCC New Encounter Form

VENPCCD

Entry Points

Name	Comments	DBIA/ICR reference
ELIG	; EP-edit the elig. information from pat. reg
EMPL	; EP-changes to employer, employment status or spouses employer
MCRFL	; EP-medicare alert--person over 64 and not on file with medicare
KILL	;
PICK	;
PI	; EP-PVT INSURANCE
MCR	; EP-MEDICARE
MDCD	; EP-MEDICAID

Name	Field # of Occurrence
DD^%DT	PI+8, PI+9, MCR+9, MCR+10
NOW^%DTC	EMPL+6
^AGED4	ELIG+7
VAR^AGED4A	ELIG+6
^AGED5	ELIG+7
^AGED6	ELIG+7
^AGED7	ELIG+7
DFN^AGEDIT	ELIG+5
^AGVAR	ELIG+4
^DIE	EMPL+5
$$VERSION^XPDUTL	ELIG+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"Private Ins.: " Line Location: PI+1
Function Call: WRITE	Prompt: "NONE ON FILE" Line Location: PI+2
Function Call: WRITE	Prompt: IOUOFF,IOINLOW Line Location: PI+3
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"Medicaid: (last 4 times eligible)" Line Location: MDCD+4
Function Call: WRITE	Prompt: "NONE ON FILE" Line Location: MDCD+5
Function Call: WRITE	Prompt: IOUOFF,IOINLOW Line Location: MDCD+6
Function Call: WRITE	Prompt: !,?10 Line Location: MDCD+11
Function Call: WRITE	Prompt: Y Line Location: MDCD+12
Function Call: WRITE	Prompt: " to ???" Line Location: MDCD+13
Function Call: WRITE	Prompt: " to ",Y Line Location: MDCD+14
Function Call: WRITE	Prompt: " (currently eligible)" Line Location: MDCD+15
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"Medicare: " Line Location: MCR+1
Function Call: WRITE	Prompt: "NONE ON FILE" Line Location: MCR+3
Function Call: WRITE	Prompt: IOUOFF,IOINLOW Line Location: MCR+4
Function Call: WRITE	Prompt: *7,IOINHI,IOBON,"PERSON OVER 64--NO MEDICARE ON FILE!!!",IOINLOW,IOBOFF Line Location: MCRFL+1
Routine Call	DIE Line Location: EMPL+5

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PI+10
^AUPNMCD - [#9000004]	MDCD+8, MDCD+10
^AUPNMCD("B"	MDCD+3, MDCD+5
^AUPNMCR - [#9000003]	MCR+2, MCR+3, MCR+7, MCR+8
^AUPNPAT - [#9000001]	EMPL+5
^AUPNPRVT - [#9000006]	PI+2, PI+5, PI+6, PICK+3, PICK+4
^AUTNINS - [#9999999.18]	PI+7, PICK+7
^DD("DD"	MDCD+12, MDCD+14
^UTILITY("DIQ1"	KILL+1!

Name	Line Occurrences
KILL	ELIG+6
MCRFL	MCR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EMPL+1~, EMPL+7
AG	KILL+2!
AG("DENT"	KILL+3!
AG("TRBCODE"	KILL+3!
AGCHRT	KILL+2!
AGI	KILL+2!
AGL	KILL+3!
AGLINE	KILL+2!
AGNEW	KILL+3!
AGOPT	KILL+2!
AGPAT	KILL+2!
>> AGPATCH	EMPL+2
AGPCC	KILL+3!
AGSCRN	KILL+3!
AGSITE	KILL+2!
AGTEMP	KILL+3!
AGUPDT	KILL+2!
AGXTERN	ELIG+2*, KILL+4!
DA	EMPL+1~, EMPL+4*, EMPL+5
>> DFN	PI+2, PI+5, PI+6, MDCD+3, MDCD+5, MCR+2, MCR+3, MCR+7, MCR+8, PICK+3 , PICK+4, ELIG+1, EMPL+3, EMPL+4, EMPL+7
DFOUT	KILL+3!
DIC	ELIG+3!, KILL+3!, EMPL+1~
DIE	KILL+3!, EMPL+1~, EMPL+4*
DLOUT	KILL+3!
DQOUT	KILL+3!
DR	EMPL+1~, EMPL+4*
DT	PICK+8, PICK+9
DTOUT	KILL+3!
DUOUT	KILL+3!
DUZ(2	EMPL+7
FIN	MDCD+1~, MDCD+10*, MDCD+13, MDCD+14
G	KILL+3!
GBL	EMPL+1~, EMPL+2*, EMPL+7
I	KILL+3!
>> IOBOFF	MCRFL+1
>> IOBON	MCRFL+1
>> IOINHI	PI+1, MDCD+4, MCR+1, MCRFL+1
>> IOINLOW	PI+3, MDCD+6, MCR+4, MCRFL+1
>> IOUOFF	PI+3, MDCD+6, MCR+4
>> IOUON	PI+1, MDCD+4, MCR+1
L	KILL+3!
MDIEN	MDCD+1~, MDCD+3*, MDCD+8, MDCD+10
>> N	MCR+6, MCR+7, MCR+8, PICK+1, PICK+3, PICK+4, PICK+8, PICK+9
START	MDCD+1~, MDCD+7, MDCD+8, MDCD+10, MDCD+12
TOT	MDCD+1~, MDCD+2, MDCD+8, MDCD+9, MDCD+15
U	PI+10, MDCD+10
>> VEN("AGE"	MCR+2
>> VEN("E"	MCR+10*, MCR+12
>> VEN("EN"	PI+9*, PI+11
>> VEN("END"	PICK+5*, PICK+8, PICK+9
>> VEN("HO"	PI+10*, PI+11
>> VEN("IN"	PICK+7*, PICK+8, PICK+9
>> VEN("MRTY"	MCR+5*
>> VEN("P"	MCR+11*, MCR+12
>> VEN("PI"	PI+4, PI+5, PI+6, PICK+2!, PICK+8, PICK+9
>> VEN("PIN"	PI+7*, PI+11
>> VEN("R"	MCR+8, MCR+9, MCR+10, MCR+11, PICK+4, PICK+5, PICK+6, PICK+7
>> VEN("S"	MCR+9*, MCR+12
>> VEN("ST"	PI+8, PI+11, PICK+6, PICK+8, PICK+9
>> VENPI	PI+6*, PI+7, PI+8, PI+9, PI+10
X	EMPL+1~
Y	PI+8, PI+9, MDCD+1~, MDCD+12, MDCD+14, MCR+9, MCR+10, EMPL+1~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCD1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: