Routine: APCDEIN

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL ^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	2	^XBFMK $$EXTSET^XBFUNC
Patient Care Component	1	^APCDVAR

Package

Total

Call Graph

VA Fileman

EN^DDIOL ^DIC FILE^DICN ^DIE ^DIR

IHS VA Utilities

^XBFMK $$EXTSET^XBFUNC

Patient Care Component

^APCDVAR

Package	Total	Caller Graph
Patient Care Component	24	APCDCAF1 APCDCAF3 APCDEA APCDEAP APCDEAPC APCDEATC APCDECPT APCDEDTC APCDEFL APCDEFM APCDEGP APCDEH APCDEHI APCDEHTC APCDEL APCDELAB APCDELM APCDELMP APCDEM APCDENV APCDEPO APCDERAD APCDETP APCDPE1
IHS Changes To ADT	3	ADGCALLS ADGVHF BDGPCCEL

Package

Total

Caller Graph

Patient Care Component

APCDCAF1  APCDCAF3  APCDEA  APCDEAP  APCDEAPC  APCDEATC  APCDECPT  APCDEDTC
APCDEFL  APCDEFM  APCDEGP  APCDEH  APCDEHI  APCDEHTC  APCDEL  APCDELAB
APCDELM  APCDELMP  APCDEM  APCDENV  APCDEPO  APCDERAD  APCDETP  APCDPE1

IHS Changes To ADT

ADGCALLS ADGVHF BDGPCCEL

Entry Points

Name	Comments	DBIA/ICR reference
REMOVE	;
EN	;PEP - set up PCC Data Entry environment vars
DICERR	; DICTIONARY OUT OF SYNC WITH PROGRAM
EDIT	;
SITE	;
PARAM	;
ADD	;add to list of service categories
CAH(L)	;EP
XIT	; KILL VARIABLES AND QUIT
HELPSC	;EP
DISPSC	;
EHRESP	;EP

External References

Name	Field # of Occurrence
^APCDVAR	PARAM+1
EN^DDIOL	HELPSC+1, HELPSC+2, HELPSC+3
^DIC	EHRESP+5
FILE^DICN	ADD+10
^DIE	EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, REMOVE+14
^DIR	EDIT+3, ADD+3, REMOVE+9
^XBFMK	EHRESP+6, EHRESP+20, ADD+8, REMOVE+13
$$EXTSET^XBFUNC	DISPSC+13, REMOVE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"DUZ(""AG"") not defined..Use Kernel or Fix Kernel Site Parameters File!!" Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Dictionary error for file,field ",APCDFILE,",",APCDFLD,". Notify programmer." Line Location: DICERR+1
Function Call: WRITE	Prompt: @IOF Line Location: EHRESP+1
Function Call: WRITE	Prompt: !!,"EHR Coding Queue Parameter Update",! Line Location: EHRESP+2
Function Call: WRITE	Prompt: !!,"You have the option of seeing all visits in the coding queue" Line Location: EHRESP+9
Function Call: WRITE	Prompt: !,"regardless of how they were created. You can see all visits or" Line Location: EHRESP+10
Function Call: WRITE	Prompt: !,"limit the list of visits in the coding queue to only those" Line Location: EHRESP+11
Function Call: WRITE	Prompt: !,"on which a provider has been entered. If you choose to only" Line Location: EHRESP+12
Function Call: WRITE	Prompt: !,"see visits on which a provider was entered then you will not" Line Location: EHRESP+13
Function Call: WRITE	Prompt: !,"see visits that were created by an ancillary package. Most," Line Location: EHRESP+14
Function Call: WRITE	Prompt: !,"if not all visits created by EHR users will have provider." Line Location: EHRESP+15
Function Call: WRITE	Prompt: !! Line Location: EHRESP+16
Function Call: WRITE	Prompt: !! Line Location: EHRESP+17
Function Call: WRITE	Prompt: !! Line Location: EHRESP+18
Function Call: WRITE	Prompt: !! Line Location: EHRESP+19
Function Call: WRITE	Prompt: !!,"Service Category exclusions: If you would like to exclude" Line Location: DISPSC+1
Function Call: WRITE	Prompt: !,"visits with a particular service category from the list of" Line Location: DISPSC+2
Function Call: WRITE	Prompt: !,"visits displayed in the coding queue you must enter those" Line Location: DISPSC+3
Function Call: WRITE	Prompt: !,"service categories to the list below. For example, if you" Line Location: DISPSC+4
Function Call: WRITE	Prompt: !,"do not wish to have I - In Hospital visits in the list then" Line Location: DISPSC+5
Function Call: WRITE	Prompt: !,"you should add 'I' to the list." Line Location: DISPSC+6
Function Call: WRITE	Prompt: !,"Please note: If you leave the list blank (empty) then all" Line Location: DISPSC+7
Function Call: WRITE	Prompt: !,"direct (non-CHS) visits will display in the coding queue." Line Location: DISPSC+8
Function Call: WRITE	Prompt: !,"Historical EVENT visits never display in the coding queue.",!! Line Location: DISPSC+9
Function Call: WRITE	Prompt: !,"Your site is currently set up to exclude visits with the" Line Location: DISPSC+10
Function Call: WRITE	Prompt: !,"following service categories from the coding queue:" Line Location: DISPSC+11
Function Call: WRITE	Prompt: !!,"None selected, All visit service categories will be included",!,"in the coding queue." Line Location: DISPSC+12
Function Call: WRITE	Prompt: !?10,$P(^APCDSITE(APCDSITE,13,X,0),U)," - ",$$EXTSET^XBFUNC(9000010,.07,$P(^APCDSITE(APCDSITE,13,X,0),U)) Line Location: DISPSC+13
Function Call: WRITE	Prompt: !,"That one is already on the list.",! Line Location: ADD+7
Function Call: WRITE	Prompt: !!,"adding service category failed." Line Location: ADD+11
Function Call: WRITE	Prompt: !!,"There are none to remove!" Line Location: REMOVE+1
Routine Call	DIE Line Location: EHRESP+16 EHRESP+17 EHRESP+18 EHRESP+19 REMOVE+14
Routine Call	DIC Line Location: EHRESP+5
Routine Call	DIR Line Location: EDIT+3 ADD+3 REMOVE+9

FileNo	Call Tags
^APCDSITE - [#9001001.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	EN+4, DISPSC+12, DISPSC+13, ADD+7, REMOVE+1, REMOVE+4, REMOVE+6, CAH+2
^DD(	PARAM+3
^DD(9001001.2	ADD+9
^DIC(4 - [#4]	EHRESP+4
^TMP("APCD"	SITE+3!, PARAM+5*

Name	Line Occurrences
ADD	EDIT+6
DICERR	PARAM+4
DISPSC	EDIT+1
EDIT	EHRESP+8, EDIT+8
REMOVE	EDIT+7
XIT	PARAM+4

Name	Field # of Occurrence
^(0	PARAM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	XIT+2!
>> AICDHLIM	PARAM+2*
>> APCDA	ADD+6, ADD+7, ADD+9, REMOVE+12, REMOVE+14
>> APCDBEEP	PARAM+2*
APCDDUZ	EN+1!*
>> APCDDUZ2	SITE+2*
>> APCDEIN	SITE+1*
APCDFILE	PARAM+3*, XIT+3!, DICERR+1
APCDFLD	PARAM+3*, XIT+3!, DICERR+1
>> APCDFLG	EN+2, PARAM+2, DICERR+2*
APCDI	XIT+3!
>> APCDMODE	PARAM+2*
APCDN	XIT+3!
>> APCDOVRR	PARAM+2*
>> APCDPARM	PARAM+1
APCDSITE	EHRESP+7*, EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, EHRESP+20!, DISPSC+12, DISPSC+13, ADD+7, ADD+9 , REMOVE+1, REMOVE+4, REMOVE+6, REMOVE+14
APCDSTR	XIT+3!
>> APCDV	REMOVE+6*, REMOVE+7, REMOVE+8
APCDX	REMOVE+3!, REMOVE+7
APCDX(	REMOVE+8*, REMOVE+14
APCDY	XIT+3!, REMOVE+3, REMOVE+7, REMOVE+9
>> AUPNLK("INAC"	EN+3*, EN+4!
AUPNTALK	SITE+4!
D0	ADD+10!
DA	EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, EDIT+3!, ADD+3!, REMOVE+9!, REMOVE+14*
DA(1	ADD+9, REMOVE+14
DD	ADD+10!
DIC	XIT+2!, EHRESP+3!, EHRESP+4, EHRESP+5!, ADD+9
DIC("B"	EHRESP+4*
DIC("P"	ADD+9*
DIC(0	EHRESP+4, ADD+9
DIE	EHRESP+16!, EHRESP+17!, EHRESP+18!, EHRESP+19!, REMOVE+14*
DIR	XIT+2!, EDIT+3!, ADD+1!, ADD+3!, REMOVE+2!, REMOVE+9!
DIR("A"	EDIT+3, ADD+3, REMOVE+9*
DIR("B"	EDIT+3*
DIR(0	EDIT+2, ADD+2, REMOVE+9*
DIRUT	XIT+2!, EDIT+4, ADD+4, REMOVE+10
>> DR	EHRESP+16, EHRESP+17, EHRESP+18, EHRESP+19, REMOVE+14*
DUZ("AG"	EN+1, EN+2, SITE+2
DUZ(0	EN+1*
DUZ(2	EN+4, SITE+2, EHRESP+4
IOF	EHRESP+1
L	CAH~, CAH+1, CAH+2
U	EN+4, PARAM+4, PARAM+5, EHRESP+4, DISPSC+13, ADD+9, REMOVE+6, CAH+2
X	PARAM+3, PARAM+4, PARAM+5, XIT+2!, DISPSC+13, ADD+9, REMOVE+4*, REMOVE+6, REMOVE+8
>> XTLKHLIM	PARAM+2*
Y	XIT+2!, EHRESP+6, EHRESP+7, EDIT+5, EDIT+6, EDIT+7, ADD+5, ADD+6, ADD+11, REMOVE+11 , REMOVE+12

Customize PDF page

Package: Patient Care Component

Routine: APCDEIN

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 27

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: