Routine: APCDEGP1

Package	Total	Call Graph
Patient Care Component	8	^APCDALV ^APCDALVR ^APCDEA3 CHECK^APCDEGP0 EDITCHKS^APCDEGP2 ^APCDEQX ^APCDEWHA CHKEHR2^APCDVCHK
IHS VA Utilities	1	^XBFMK
Kernel	1	^%ZTLOAD
VA Fileman	1	^DIC

Package

Total

Call Graph

Patient Care Component

^APCDALV ^APCDALVR ^APCDEA3 CHECK^APCDEGP0 EDITCHKS^APCDEGP2 ^APCDEQX ^APCDEWHA CHKEHR2^APCDVCHK

IHS VA Utilities

^XBFMK

Kernel

^%ZTLOAD

VA Fileman

^DIC

Package	Total	Caller Graph
Patient Care Component	1	APCDEGP

Package

Total

Caller Graph

Patient Care Component

APCDEGP

Entry Points

Name	Comments	DBIA/ICR reference
GENVISIT	;
GETMNE	; GET MNEMONIC
MNEPROC	; PROCESS MNEMONICS UNTIL DONE
POV	;
PROV	;
GETMNEK	; KILL GETMNE SPECIFIC VARIABLES
SETPOV	;
XIT1
START	;
GENPOV	;
XIT	;
TSKMN	;for queueing when need to queue (call from setprov,setpov)
ERROR	;
SETEDUC	;
GENPRV	;
EDUC	;
SETPROV	;
GENEDUC	;

External References

Name	Field # of Occurrence
^%ZTLOAD	TSKMN+2
^APCDALV	GENVISIT+11
^APCDALVR	SETPOV+5, SETPROV+3, SETEDUC+12
^APCDEA3	GETMNE+6
CHECK^APCDEGP0	GETMNE+3
EDITCHKS^APCDEGP2	START+3
^APCDEQX	GETMNE+7
^APCDEWHA	START+11
CHKEHR2^APCDVCHK	MNEPROC+2
^DIC	XIT+5, GETMNE+2
^XBFMK	XIT+4, XIT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+1
Function Call: WRITE	Prompt: !!,"adding visit to group file entry failed. Notify supervisor." Line Location: XIT+6
Function Call: WRITE	Prompt: !,"Creating PCC Visit",! Line Location: GENVISIT+8
Function Call: WRITE	Prompt: !,$C(7),"No Visit Selected",! Line Location: GENVISIT+12
Function Call: WRITE	Prompt: !,$C(7),"Error encountered when creating visit!," Line Location: GENVISIT+13
Function Call: WRITE	Prompt: !,"Creating POV Record" Line Location: GENPOV+1
Function Call: WRITE	Prompt: !,"Creating Provider Record" Line Location: GENPRV+1
Function Call: WRITE	Prompt: ! Line Location: GETMNE+1
Function Call: WRITE	Prompt: !!,"Switching to Modify Mode for ONE Mnemonic ONLY!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !!,"Switching back to ENTER Mode!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !,$C(7),"Template Missing - Notify Site Manager",! Line Location: ERROR+1
Function Call: WRITE	Prompt: !,$C(7),"Error in V File Creation!" Line Location: ERROR+2
Function Call: WRITE	Prompt: !,"Creating Patient Education Record" Line Location: GENEDUC+1
Routine Call	DIC Line Location: XIT+5 GETMNE+2

FileNo	Call Tags
^APCDTKW - [#9001001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPED - [#9000010.16]	GENEDUC+2
^AUPNVPED("AD"	GENEDUC+2
^AUPNVPOV - [#9000010.07]	GENPOV+3
^AUPNVPOV("AD"	GENPOV+3
^AUPNVPRV - [#9000010.06]	GENPRV+2
^AUPNVPRV("AD"	GENPRV+2
^DD(9001002.3	XIT+5
^TMP("APCDEGP"	POV+1, SETPOV+2, SETPOV+3, PROV+1, SETPROV+1, SETPROV+2, EDUC+1, SETEDUC+1, SETEDUC+6, SETEDUC+7 , SETEDUC+10, SETEDUC+11

Label References

Name	Line Occurrences
EDUC	GENEDUC+3
ERROR	SETPOV+6, SETPROV+4, SETEDUC+13
GENEDUC	START+10
GENPOV	START+8
GENPRV	START+9
GENVISIT	START+5
GETMNE	MNEPROC+2, GETMNE+8
GETMNEK	MNEPROC+3
MNEPROC	START+13
POV	GENPOV+4
PROV	GENPRV+3
SETEDUC	EDUC+1
SETPOV	POV+1
SETPROV	PROV+1
XIT1	START+4, START+6

Name	Field # of Occurrence
^("APCDTPOV"	SETPOV+3
^("APCDTPRV"	SETPROV+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	START+2!, START+12!, XIT1!, SETEDUC+2!
APCDALVR("APCDAFLG"	GENVISIT+12!, GENVISIT+13!, SETPOV+1!, SETPOV+6, SETPROV+4, ERROR+1, ERROR+2, SETEDUC+13
APCDALVR("APCDATMP"	GENPOV+2, PROV+1, SETEDUC+5*
APCDALVR("APCDCAT"	GENVISIT+2*
APCDALVR("APCDCLN"	GENVISIT+6*
APCDALVR("APCDDATE"	GENVISIT+5*
APCDALVR("APCDLOC"	GENVISIT+1*
APCDALVR("APCDNOK"	GENVISIT+9*
APCDALVR("APCDPAT"	GENVISIT+4, GENVISIT+10, SETEDUC+3*
APCDALVR("APCDTACC"	SETPOV+1!, SETPOV+4*
APCDALVR("APCDTFR"	SETPOV+3*
APCDALVR("APCDTIG"	SETEDUC+9*
APCDALVR("APCDTLOU"	SETEDUC+8*
APCDALVR("APCDTMIN"	SETEDUC+10*
APCDALVR("APCDTNQ"	SETPOV+3*
APCDALVR("APCDTOBJ"	SETEDUC+11*
APCDALVR("APCDTPOV"	SETPOV+3*
APCDALVR("APCDTPRO"	SETPROV+2, SETEDUC+7
APCDALVR("APCDTPS"	SETPROV+2*
APCDALVR("APCDTTOP"	SETEDUC+6*
APCDALVR("APCDTYPE"	GENVISIT+3*
APCDALVR("APCDVSIT"	SETEDUC+4*
>> APCDCAT	GENVISIT+2
>> APCDCLIN	GENVISIT+6
>> APCDDATE	GENVISIT+5
>> APCDEFLG	START+4
APCDEG1	XIT1!, GENPOV+3, GENPRV+2, GENEDUC+2*
APCDEG2	XIT1!, GENPOV+3, GENPRV+2, GENEDUC+2*
>> APCDEGP("FORMS"	XIT+2*
>> APCDEGP("VISIT"	START+7*, XIT+2, XIT+5, XIT1!
APCDEGPR	XIT1!, GENPOV+3!, GENPRV+2!, GENEDUC+2!*
APCDEGPR(	GENPOV+3, SETPOV+2, GENPRV+2, SETPROV+1, GENEDUC+2*, SETEDUC+1
APCDEGX	XIT1!, POV+1, SETPOV+2, SETPOV+3, GETMNEK+1!, PROV+1, SETPROV+1, SETPROV+2, EDUC+1*, SETEDUC+1 , SETEDUC+6, SETEDUC+7, SETEDUC+10, SETEDUC+11
APCDEGY	XIT1!, TSKMN+1*
APCDEQX	MNEPROC+2, GETMNE+7, GETMNEK+1!
>> APCDFID	XIT+5
>> APCDLOC	GENVISIT+1
>> APCDMNE	GETMNE+4*
>> APCDMNE("NAME"	GETMNE+4*
APCDMOD	GETMNE+5!, GETMNE+8!
>> APCDMODE	GETMNE+8*
APCDMPQ	MNEPROC+1, MNEPROC+2, MNEPROC+4!, GETMNE+7
APCDNOXV	GENVISIT+11*!
>> APCDPAT	GENVISIT+4, GENVISIT+10, SETEDUC+3
APCDTACC	XIT1!, SETPOV+4
>> APCDTYPE	GENVISIT+3
APCDVDSP	START+11*!
APCDVLK	GETMNE+8*!
APCDVSIT	START+6, START+7, START+11, GENVISIT+12!, GENVISIT+13!, GENPOV+3, GENPRV+2, GETMNE+8, GETMNEK+1!, GENEDUC+2 , SETEDUC+4
AUPNTALK	START+12!
>> DA(1	XIT+5*
DIADD	XIT+4!, XIT+7!
>> DIC	XIT+5, GETMNE+2
>> DIC("A"	GETMNE+2*!
>> DIC("P"	XIT+5*
>> DIC("S"	GETMNE+2*!
>> DIC(0	XIT+5, GETMNE+2
DLAYGO	XIT+4!, XIT+7!
DT	TSKMN+2
DUZ	SETPOV+4
U	XIT+5, GENPOV+3, SETPOV+2, SETPOV+3, GENPRV+2, GETMNE+4, SETPROV+1, SETPROV+2, GENEDUC+2, SETEDUC+1 , SETEDUC+6, SETEDUC+7, SETEDUC+10, SETEDUC+11
>> X	XIT+5*
Y	XIT+6, XIT1!, GETMNE+3, GETMNE+4
ZTDESC	TSKMN+2*, TSKMN+3!
ZTDTH	TSKMN+2*, TSKMN+3!
ZTIO	TSKMN+2*, TSKMN+3!
ZTRTN	TSKMN+2*, TSKMN+3!
ZTSAVE	TSKMN+1!, TSKMN+3!
ZTSAVE(	TSKMN+1*
ZTSK	TSKMN+2!

Customize PDF page

Package: Patient Care Component

Routine: APCDEGP1

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

Naked Globals

Local Variables

Legend: