Routine: APCDACCR

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
Patient Care Component	3	^APCDSW ^APCDVDSP ^APCDVLK
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient	1	MOD^AUPNVSIT
Patient Care Component Reports	1	$$VD^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;end of job clean up
GETTYPE	;get type of record to update
GETVISIT	;get visit to edit
GETPAT	;get patient
1	;
INFORM	;inform user what is going on
3	;
2	;
DSPLY	;display selected visit, calls APCDVDSP
MOD	;

External References

Name	Field # of Occurrence
^APCDSW	1+4, 2+5, 3+3
^APCDVDSP	DSPLY+1
^APCDVLK	GETVISIT+3
$$VD^APCLV	2+10
MOD^AUPNVSIT	MOD+1
^DIC	GETPAT+4
YN^DICN	GETPAT+6
^DIE	1+6, 2+7, 3+5
^DIR	GETTYPE+2
$$ICDDX^ICDEX	1+8
$$ICDOP^ICDEX	2+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: APCDACCR+6
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: APCDACCR+8
Function Call: WRITE	Prompt: !!,"No Record Type selected!",! Line Location: APCDACCR+11
Function Call: WRITE	Prompt: !!,"This option will allow you to remove the ACCEPT command in a Purpose of Visit",!,"record. The Accept command is used to override an edit in the",!,"IHS Direct Inpatient System.",!! Line Location: INFORM+1
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: The IHS Direct Inpatient System no longer requires" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"the use of the ACCEPT command so this option is no longer necessary and" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"will be eliminated.",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"No POV's for that Visit",! Line Location: 1+1
Function Call: WRITE	Prompt: !!,"You must select which POV should have the ACCEPT command removed.",! Line Location: 1+2
Function Call: WRITE	Prompt: !!,"No POV selected!",! Line Location: 1+5
Function Call: WRITE	Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!" Line Location: 1+7
Function Call: WRITE	Prompt: !,"Accept command has been removed for POV ",$P($$ICDDX^ICDEX($P(^AUPNVPOV(APCDLOOK,0),U)),U,2),! Line Location: 1+8
Function Call: WRITE	Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER!" Line Location: 1+10
Function Call: WRITE	Prompt: !!,"No PROCEDURE's for that Visit",! Line Location: 2+2
Function Call: WRITE	Prompt: !!,"You must select which PROCEDURE/OPERATION should have the ACCEPT command removed.",!! Line Location: 2+3
Function Call: WRITE	Prompt: !!,"No PROCEDURE/OPERATION selected!",! Line Location: 2+6
Function Call: WRITE	Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!" Line Location: 2+8
Function Call: WRITE	Prompt: !,"Accept command has been removed from PROCEDURE ",$P($$ICDOP^ICDEX($P(^AUPNVPRC(APCDLOOK,0),U),$$VD^APCLV(APCDVSIT),,"I"),U,2),! Line Location: 2+10
Function Call: WRITE	Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER",!,$C(7),$C(7) Line Location: 2+12
Function Call: WRITE	Prompt: !!,"No V HOSPITALIZATION record exists for this Visit",! Line Location: 3+1
Function Call: WRITE	Prompt: !!,"No V HOSPITALIZATION selected!",! Line Location: 3+4
Function Call: WRITE	Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!" Line Location: 3+6
Function Call: WRITE	Prompt: !,"Accept command has been removed from V HOSPITALIZATION.",! Line Location: 3+7
Function Call: WRITE	Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER",!,$C(7),$C(7) Line Location: 3+9
Routine Call	DIE Line Location: 1+6 2+7 3+5
Routine Call	DIC Line Location: GETPAT+4
Routine Call	DIR Line Location: GETTYPE+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVINP - [#9000010.02]	Classic Fileman Calls
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls
^AUPNVPRC - [#9000010.08]	Classic Fileman Calls

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+1!, GETPAT+6*
%DT	EOJ+1!
APCDCAT	EOJ+1!
APCDCLN	EOJ+1!
APCDDATE	EOJ+1!
APCDLOC	EOJ+1!
APCDLOOK	EOJ+1!, GETVISIT+1*, GETVISIT+4!, 1+5, 1+6, 1+8, 2+6, 2+7, 2+10, 3+4 , 3+5
>> APCDPARM	GETPAT+6
APCDPAT	APCDACCR+6, EOJ+1!, GETPAT+3, GETPAT+7
APCDPROC	APCDACCR+11, APCDACCR+12, EOJ+1!, GETTYPE+1, GETTYPE+4
APCDSWCR	EOJ+1!, 1+3, 2+4, 3+2*
APCDSWD	EOJ+1!, 1+3, 2+4, 3+2*
APCDSWV	EOJ+1!, 1+3, 2+4, 3+2*
APCDTYPE	EOJ+1!
>> APCDVDSP	DSPLY+1*
APCDVLK	GETVISIT+2!
APCDVSIT	APCDACCR+8, EOJ+1!, GETVISIT+1*, DSPLY+1, 1+1, 1+3, 2+2, 2+4, 2+10, 3+1 , 3+2, MOD+1
AUPNDAYS	EOJ+1!, GETPAT+2!
AUPNDOB	EOJ+1!, GETPAT+2!
AUPNDOD	EOJ+1!, GETPAT+2!
AUPNPAT	EOJ+1!, GETPAT+2!
AUPNSEX	EOJ+1!, GETPAT+2!
>> AUPNVSIT	MOD+1*
DA	EOJ+1!, 1+6!, 2+7!, 3+5*!
DIC	EOJ+1!, GETPAT+4*!
DIC(0	GETPAT+4*
DIE	EOJ+1!, 1+6!, 2+7!, 3+5*!
DIR	GETTYPE+2!
DIR("A"	GETTYPE+2*
DIR(0	GETTYPE+2*
>> DIRUT	GETTYPE+3
DR	EOJ+1!, 1+6!, 2+7!, 3+5*!
U	GETPAT+6, 1+8, 2+10
X	EOJ+1!
Y	EOJ+1!, GETTYPE+4, GETPAT+5, GETPAT+7, 1+7, 1+10, 2+8, 2+12, 3+6, 3+9

Customize PDF page

Package: Patient Care Component

Routine: APCDACCR

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	3+1
^AUPNVPOV - [#9000010.07]	1+8
^AUPNVPOV("AD"	1+1
^AUPNVPRC - [#9000010.08]	2+10
^AUPNVPRC("AD"	2+2

Name	Line Occurrences
@(	APCDACCR+12
DSPLY	APCDACCR+9
EOJ	APCDACCR+6, APCDACCR+8, APCDACCR+11, APCDACCR+13
GETPAT	APCDACCR+5
GETTYPE	APCDACCR+10
GETVISIT	APCDACCR+7
INFORM	APCDACCR+4
MOD	1+9, 2+11, 3+8