Routine: VENPCCD

Information

VENPCCD ; IHS/OIT/GIS - UPDATE DEMOGRAPHICS AND INSURANCE INFO ;

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC YN^DICN ^DIE EN^DIQ1 ^DIR
IHS VA Utilities	3	^XBCLS ^XBFMK ^XBKVAR
IHS Patient Registration	1	UPDATE1^AGED
Kernel	1	ENDR^%ZISS
PCC New Encounter Form	1	(ELIG,EMPL,MCR,MDCD,PI)^VENPCCD1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCA

Entry Points

Name	Comments	DBIA/ICR reference
EMPCHG	; changes in the employment, employment status, or spouse employment
PAGE11(DFN)	; EP-EDIT PAGE 11
END	;
PROCESS	; EP - DRIVER
ADDCHG	; call routine that changes address fields in pat reg
MDCDFL	; medicaid alert for passport signature
MCRFL	; medicare alert--person over 65 and not on file with medicare
START	;
ADD	;
MOK(DFN)	; IS PT MEDICAID ELIGIBLE?
INCHG	; changes in the insurance plan
PAT(DFN)	; EP-UPDATE DEMOGRAPHICS
DISPLAY

External References

Name	Field # of Occurrence
NOW^%DTC	ADDCHG+8, MCRFL+3
ENDR^%ZISS	PAT+3
UPDATE1^AGED	START+4, PAGE11+6
^DIC	START+2
YN^DICN	PAGE11+3
^DIE	ADDCHG+5, ADDCHG+7, PAGE11+5
EN^DIQ1	PROCESS+3
^DIR	ADD+11, INCHG+7, EMPCHG+9, MDCDFL+7
ELIG^VENPCCD1	INCHG+10
EMPL^VENPCCD1	EMPCHG+11
MCR^VENPCCD1	INCHG+5
MDCD^VENPCCD1	INCHG+4
PI^VENPCCD1	INCHG+3
^XBCLS	DISPLAY
^XBFMK	PAGE11+7
^XBKVAR	PAT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Patient is being edited by someone else!!" Line Location: PROCESS+1
Function Call: WRITE	Prompt: !,"Missing/invalid DOB!!!" Line Location: PROCESS+9
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?5,IOUON,IOINHI,"Patient: ",IOUOFF,IOINLOW,VEN("N"),?69,IOUON,IOINHI,"HRN: ",IOUOFF,IOINLOW,VEN("HRN") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"SSN: ",IOUOFF,IOINLOW,VEN("SSN") Line Location: ADD+4
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"HOME PHONE: ",IOUOFF,IOINLOW,VEN("HPHONE") Line Location: ADD+5
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"OFFICE PHONE: ",IOUOFF,IOINLOW,VEN("OPHONE") Line Location: ADD+6
Function Call: WRITE	Prompt: !,?14,VEN("A",2) Line Location: ADD+7
Function Call: WRITE	Prompt: !,?14,VEN("A",3) Line Location: ADD+8
Function Call: WRITE	Prompt: !,?14,VEN("A",4),", ",VEN("A",5)," ",VEN("A",6) Line Location: ADD+9
Function Call: WRITE	Prompt: IOINHI Line Location: ADD+11
Function Call: WRITE	Prompt: IOINLOW Line Location: ADD+11
Function Call: WRITE	Prompt: ! Line Location: INCHG+2
Function Call: WRITE	Prompt: IOINHI Line Location: INCHG+7
Function Call: WRITE	Prompt: IOINLOW Line Location: INCHG+7
Function Call: WRITE	Prompt: !!,?5,IOUON,IOINHI,"Employer: ",IOUOFF,IOINLOW,VEN("E")," ",IOUON,IOINHI,"Status: ",IOUOFF,IOINLOW,VEN("ES") Line Location: EMPCHG+6
Function Call: WRITE	Prompt: !,?5,IOUON,IOINHI,"Spouse's Employer: ",IOUOFF,IOINLOW,VEN("SE") Line Location: EMPCHG+7
Function Call: WRITE	Prompt: IOINHI Line Location: EMPCHG+9
Function Call: WRITE	Prompt: IOINLOW Line Location: EMPCHG+9
Function Call: WRITE	Prompt: IOEDEOP Line Location: EMPCHG+11
Function Call: WRITE	Prompt: ! Line Location: EMPCHG+12
Function Call: WRITE	Prompt: IORVOFF Line Location: MDCDFL+17
Function Call: WRITE	Prompt: *7,IORVON,IOBON,!,?5,"PERSON OVER 65--NO MEDICARE ON FILE!!!",IORVOFF,IOBOFF Line Location: MCRFL+1
Function Call: WRITE	Prompt: !!,"Want to enter additional registration information (Page 11)" Line Location: PAGE11+2
Routine Call	DIE Line Location: ADDCHG+5 ADDCHG+7 PAGE11+5
Routine Call	DIC Line Location: START+2
Routine Call	DIR Line Location: ADD+11 INCHG+7 EMPCHG+9 MDCDFL+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	ADDCHG+3
^AUPNMCD - [#9000004]	MOK+3, MOK+4
^AUPNMCD("B"	MOK+2
^AUPNMCR - [#9000003]	PROCESS+11, ADD+17
^AUPNPAT - [#9000001]	PROCESS+1, PROCESS+8, ADDCHG+7, EMPCHG+2, PAGE11+5
^AUPNPRVT - [#9000006]	INCHG+3
^AUTNEMPL - [#9999999.75]	EMPCHG+3, EMPCHG+5
^DD(9000001	PAT+4
^DIC(5 - [#5]	ADD+3
^DPT - [#2]	PROCESS+2, PROCESS+5, PROCESS+6, PROCESS+9, ADD+1, ADDCHG+5
^VEN(7.5 - [#19707.5]	START+4

Label References

Name	Line Occurrences
$$MOK	INCHG+4
ADDCHG	ADD+13
DISPLAY	ADD+13, ADD+14
EMPCHG	ADD+15
END	START+5, ADD+12, ADD+18
INCHG	ADD+14
MCRFL	ADD+17
MDCDFL	ADD+16
PAGE11	START+4
PROCESS	START+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PAT+1~, PROCESS+9, PROCESS+10, ADDCHG+2~, ADDCHG+9, MCRFL+4, PAGE11+3
AGE	PAT+1~, PROCESS+10*, PROCESS+11
AUPNDAYS	PAT+1~
AUPNDOB	PAT+1~
AUPNDOD	PAT+1~
AUPNPAT	PAT+1~
AUPNSEX	PAT+1~
>> CFIGIEN	START+4
>> CHECKIN	DISPLAY
D0	PAT+1~
DA	PAT+1~, PROCESS+3, ADDCHG+2~, ADDCHG+4, ADDCHG+5, ADDCHG+6, ADDCHG+7, PAGE11+1~, PAGE11+4, PAGE11+5
DFN	PAT~, START+2, START+3, START+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+5, PROCESS+6, PROCESS+8 , PROCESS+9, PROCESS+11, ADD+1, ADD+17, ADDCHG+4, ADDCHG+6, ADDCHG+9, INCHG+3, INCHG+4, MOK~ , MOK+2, EMPCHG+2, MDCDFL+10, MDCDFL+11, MDCDFL+15, MCRFL+2, MCRFL+4, PAGE11~, PAGE11+4, PAGE11+6
DIC	PAT+1~, START+2!, PROCESS+3, ADDCHG+2~
DIC(0	START+2*
DIE	ADDCHG+2~, ADDCHG+4, ADDCHG+6, PAGE11+1~, PAGE11+4*
DIPGM	PAT+1~
DIQ	PAT+1~, PROCESS+3*
DIR	INCHG+9!, MDCDFL+16!
DIR("A"	ADD+10, INCHG+6, EMPCHG+8, MDCDFL+3, MDCDFL+4*
DIR("B"	ADD+10, INCHG+6, EMPCHG+8, MDCDFL+6
DIR(0	ADD+10, INCHG+6, EMPCHG+8, MDCDFL+5
DLAYGO	PAT+1~, START+2*
DOB	PAT+1~
DR	PAT+1~, PROCESS+3, ADDCHG+2~, ADDCHG+4, ADDCHG+6, PAGE11+1~, PAGE11+4
DT	PROCESS+10, ADDCHG+6, MOK+5, MDCDFL+10, MDCDFL+12, MCRFL+2
>> DTOUT	ADD+12, INCHG+8, EMPCHG+10
>> DUOUT	ADD+12, INCHG+8, EMPCHG+10
DUZ	ADDCHG+6, MDCDFL+10, MDCDFL+13, MCRFL+2, MCRFL+4
DUZ(2	PROCESS+8, ADDCHG+9, PAGE11+6
END	MOK+1~, MOK+4*, MOK+5
GBL	ADDCHG+2~, ADDCHG+3*, ADDCHG+9
I	PAT+1~, ADD+2*
IOBOFF	PAT+1~, MCRFL+1
IOBON	PAT+1~, MCRFL+1
IOEDEOP	PAT+1~, EMPCHG+11
IOINHI	PAT+1~, DISPLAY+2, ADD+4, ADD+5, ADD+6, ADD+7, ADD+11, INCHG+7, EMPCHG+6, EMPCHG+7 , EMPCHG+9
IOINLOW	PAT+1~, DISPLAY+2, ADD+4, ADD+5, ADD+6, ADD+7, ADD+11, INCHG+7, EMPCHG+6, EMPCHG+7 , EMPCHG+9
IOINORM	PAT+1~
IORVOFF	PAT+1~, MDCDFL+17, MCRFL+1
IORVON	PAT+1~, MDCDFL+2, MCRFL+1
IOUOFF	PAT+1~, DISPLAY+2, ADD+4, ADD+5, ADD+6, ADD+7, EMPCHG+6, EMPCHG+7
IOUON	PAT+1~, DISPLAY+2, ADD+4, ADD+5, ADD+6, ADD+7, EMPCHG+6, EMPCHG+7
MDIEN	MOK+1~, MOK+2*, MOK+3, MOK+4
N	PAT+1~
SEX	PAT+1~
SSN	PAT+1~
START	MOK+1~, MOK+3*, MOK+4
U	START+4, PROCESS+9, MOK+4
VEN	PAT+1~, START+1!
VEN(	ADD+1*, ADD+2
VEN("$Y"	EMPCHG+1*, EMPCHG+11
VEN("A"	ADD+2, ADD+3, ADD+7, ADD+8, ADD+9
VEN("AGE"	PROCESS+3*, ADD+17
VEN("COMP"	MDCDFL+8, MDCDFL+9, MDCDFL+10, MDCDFL+14
VEN("E"	EMPCHG+3*, EMPCHG+6
VEN("ECHG"	EMPCHG+11*
VEN("ES"	EMPCHG+4*, EMPCHG+6
VEN("HPHONE"	PROCESS+5*, ADD+5
VEN("HRN"	PROCESS+8*, DISPLAY+2
VEN("ICHG"	ADD+14, INCHG+1, INCHG+10
VEN("M"	MDCDFL+11, MDCDFL+12, MDCDFL+13, MDCDFL+14, MDCDFL+15
VEN("MDCD"	MDCDFL+1
VEN("MRCK"	PROCESS+11*
VEN("N"	PROCESS+7*, DISPLAY+2
VEN("OPHONE"	PROCESS+6*, ADD+6
VEN("SE"	EMPCHG+5*, EMPCHG+7
VEN("SSN"	PROCESS+4*, ADD+4
VEN(0	PROCESS+2, PROCESS+4, PROCESS+7, EMPCHG+2, EMPCHG+3, EMPCHG+4, EMPCHG+5
VENA	PAT+1~
VENA(2	PROCESS+3
VEND	PAT+1~
VEND("EMPST"	PAT+4*, EMPCHG+4
VENPAT	PAT+1~
VENPAT("MCR"	MCRFL+2, MCRFL+4
VENPAT("MDCD"	MDCDFL+10, MDCDFL+11, MDCDFL+15
VENPI	PAT+1~
X	PAT+1~, PAT+3, START+2, ADDCHG+2~
Y	PAT+1~, ADD+13, ADDCHG+2~, INCHG+10, EMPCHG+11, MDCDFL+8, MDCDFL+9

Marked Items

Name	Field # of Occurrence
$T(UPDATE1^AGED	START+4

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCD

Information

Source Information

Call Graph

Call Graph Total: 12

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:

Marked Items