Routine: APCDRPOV

Package	Total	Call Graph
VA Fileman	6	^DIC FILE^DICN ^DIE (,IX1)^DIK ($$GET1,EN)^DIQ ^DIR
IHS Patient	2	(,KILL)^AUPNPAT MOD^AUPNVSIT
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
Patient Care Component	2	PAUSE^APCDALV1 ^APCDVLK
IHS Code Mapping	1	$$PRIMPOV^BCQMAPI

Package

Total

Call Graph

VA Fileman

^DIC FILE^DICN ^DIE (,IX1)^DIK ($$GET1,EN)^DIQ ^DIR

IHS Patient

(,KILL)^AUPNPAT MOD^AUPNVSIT

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBNEW

Patient Care Component

PAUSE^APCDALV1 ^APCDVLK

IHS Code Mapping

$$PRIMPOV^BCQMAPI

Package	Total	Caller Graph
Patient Care Component	2	APCDCAF1 APCDCAF3

Package

Total

Caller Graph

Patient Care Component

APCDCAF1 APCDCAF3

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
ENDE(VIEN)	;EP CALLED FROM DATA ENTRY TEMPLATE
GETPAT	;EP GET- PATIENT
POVDISP	;
EN(APCDVSIT)	;EP -pass in visit
GETVISIT	;EP - this entry point called by the BVP package (View patient record)
DSPLY	;

External References

Name	Field # of Occurrence
PAUSE^APCDALV1	POVDISP+21
^APCDVLK	GETVISIT+3
^AUPNPAT	DSPLY+4
KILL^AUPNPAT	EOJ+4
MOD^AUPNVSIT	POVDISP+43
$$PRIMPOV^BCQMAPI	POVDISP+40
^DIC	GETPAT+4
FILE^DICN	POVDISP+34
^DIE	POVDISP+40
^DIK	POVDISP+42
IX1^DIK	POVDISP+39
$$GET1^DIQ	POVDISP+7
EN^DIQ	DSPLY+6
^DIR	POVDISP+9, POVDISP+17, POVDISP+26
$$VAL^XBDIQ1	POVDISP+6, POVDISP+25
EN^XBNEW	ENDE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to resequence the purpose of visit (diagnoses)" Line Location: APCDRPOV+3
Function Call: WRITE	Prompt: !,"on a visit. This allows you to determine which will be the first diagnosis" Line Location: APCDRPOV+4
Function Call: WRITE	Prompt: !,"listed which will become the primary diagnosis.",!! Line Location: APCDRPOV+5
Function Call: WRITE	Prompt: !,"It is recommended that you query the provider before resequencing POVs.",!! Line Location: APCDRPOV+6
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: APCDRPOV+8
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: APCDRPOV+10
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"Visit Information",! Line Location: DSPLY+1
Function Call: WRITE	Prompt: !?3,"Current Sequence of POV's",! Line Location: POVDISP+3
Function Call: WRITE	Prompt: ! Line Location: POVDISP+9
Function Call: WRITE	Prompt: !!,"Please jot down the order using the numbers above that you wish the POV's" Line Location: POVDISP+13
Function Call: WRITE	Prompt: !,"to be in. For example, if there are 3 POV's and you want #3 first, #1 second" Line Location: POVDISP+14
Function Call: WRITE	Prompt: !,"and #2 third, you would enter 3,1,2.",! Line Location: POVDISP+15
Function Call: WRITE	Prompt: !!,"You did not select all ",APCDC," POV's. Please sequence all of them.",! Line Location: POVDISP+21
Function Call: WRITE	Prompt: !!,"The POV's will be resequenced to the following order:" Line Location: POVDISP+24
Function Call: WRITE	Prompt: !?5,X,")" Line Location: POVDISP+25
Function Call: WRITE	Prompt: ?10,$$VAL^XBDIQ1(9000010.07,APCDX,.01),?20,$$VAL^XBDIQ1(9000010.07,APCDX,.04) Line Location: POVDISP+25
Function Call: WRITE	Prompt: ! Line Location: POVDISP+26
Function Call: WRITE	Prompt: !!,"ERROR in creating new POV for ",APCDC Line Location: POVDISP+35
Routine Call	DIE Line Location: POVDISP+40
Routine Call	DIC Line Location: GETPAT+4
Routine Call	DIR Line Location: POVDISP+9 POVDISP+17 POVDISP+26

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	POVDISP+33, POVDISP+38*
^AUPNVPOV("AD"	POVDISP+4
^AUPNVSIT - [#9000010]	DSPLY+2

Name	Line Occurrences
DSPLY	APCDRPOV+11, POVDISP+18, POVDISP+19, POVDISP+27, POVDISP+28, POVDISP+44
EOJ	APCDRPOV+8, APCDRPOV+10, APCDRPOV+12, POVDISP+10, POVDISP+11
GETPAT	APCDRPOV+7
GETVISIT	APCDRPOV+9
POVDISP	DSPLY+7, POVDISP+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!
%DT	EOJ+2!
%X	EOJ+2!
%Y	EOJ+2!
>> APCDC	POVDISP+4, POVDISP+5, POVDISP+6, POVDISP+17, POVDISP+21, POVDISP+23, POVDISP+25, POVDISP+30*, POVDISP+35, POVDISP+40
APCDCAT	EOJ+3!
APCDCLN	EOJ+3!
APCDDATE	EOJ+3!
>> APCDJ	POVDISP+20*, POVDISP+21, POVDISP+25
APCDLOC	EOJ+3!
APCDLOOK	GETVISIT+1*, GETVISIT+4!, EOJ+3!
>> APCDNEW	POVDISP+36*, POVDISP+38, POVDISP+39, POVDISP+40
APCDNEWO	POVDISP+22!
APCDNEWO(	POVDISP+25*, POVDISP+30
APCDNVDS	DSPLY+6, ENDE+1*, ENDE+3!
APCDORD	POVDISP+16!
APCDPAT	APCDRPOV+8, GETPAT+3, GETPAT+6, EOJ+3!
APCDPOV	POVDISP+4!
APCDPOV(	POVDISP+5*, POVDISP+25
>> APCDPSN	POVDISP+2, POVDISP+7, POVDISP+40
APCDTYPE	EOJ+3!
APCDVLK	GETVISIT+2!
>> APCDVR0	DSPLY+2*, DSPLY+3
APCDVSIT	APCDRPOV+10, GETVISIT+1*, EN~, DSPLY+2, DSPLY+6, EOJ+3!, POVDISP+4, POVDISP+43
>> APCDX	POVDISP+4, POVDISP+5, POVDISP+6, POVDISP+7, POVDISP+25, POVDISP+30*, POVDISP+33, POVDISP+38, POVDISP+42
>> AUPNLK("INAC"	GETPAT+2*, EOJ+1!
>> AUPNVSIT	POVDISP+43*
C	EOJ+2!
D0	POVDISP+32!
DA	DSPLY+6, POVDISP+9!, POVDISP+17!, POVDISP+26!, POVDISP+39!, POVDISP+40!, POVDISP+42!
DD	POVDISP+32!
>> DFN	DSPLY+3*, DSPLY+4
DIADD	POVDISP+33*, POVDISP+37!
DIC	GETPAT+4!, DSPLY+6, POVDISP+33*, POVDISP+37!
DIC(0	GETPAT+4, POVDISP+33
DIE	POVDISP+40*!
DIK	POVDISP+39!, POVDISP+42!
DIR	POVDISP+9!, POVDISP+17!, POVDISP+26!
DIR("A"	POVDISP+9, POVDISP+17, POVDISP+26*
DIR("B"	POVDISP+9, POVDISP+26
DIR(0	POVDISP+9, POVDISP+17, POVDISP+26*
>> DIRUT	POVDISP+10, POVDISP+18, POVDISP+27
DIYS	EOJ+2!
DLAYGO	POVDISP+33*, POVDISP+37!
DO	POVDISP+32!
DR	POVDISP+40*!
>> J	POVDISP+25*
U	DSPLY+3, POVDISP+33
VIEN	ENDE~
X	EOJ+2!, POVDISP+19, POVDISP+25, POVDISP+33
Y	GETPAT+5, GETPAT+6, DSPLY+4*, EOJ+2!, POVDISP+11, POVDISP+20, POVDISP+28, POVDISP+35, POVDISP+36

Customize PDF page

Package: Patient Care Component

Routine: APCDRPOV

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: