Routine: APCDLINK

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE EN^DIQ ^DIR
Patient Care Component	1	^APCDVDSP
Uncategorized	1	($$A08,A08)^BTSEVENT

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
GETIN
HDR	; Write Header
CONFIRM	;
PROCESS	;
EOJ	;
GETPAT	; GET PATIENT
TEXT	;
WRITE	; WRITE VISITS FOR SELECT
LINK	;
GETHOSP
SRDR
SELECT	; SELECT EXISTING VISIT

External References

Name	Field # of Occurrence
^APCDVDSP	DISP+5
$$A08^BTSEVENT	LINK+5
A08^BTSEVENT	LINK+5
^DIC	GETPAT+2
YN^DICN	DISP+3
^DIE	LINK+1
EN^DIQ	DISP+2
^DIR	GETIN, GETHOSP, CONFIRM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: PROCESS+3
Function Call: WRITE	Prompt: !!,"No IN-HOSPITAL Visit selected!" Line Location: PROCESS+6
Function Call: WRITE	Prompt: !!,"No HOSPITALIZATION Visit selected!" Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"Leaving this option BYE!",! Line Location: PROCESS+12
Function Call: WRITE	Prompt: !!,"The LINK failed!! Try again later." Line Location: PROCESS+14
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !,"No In-Hospital Visit on that date for this patient!" Line Location: GETIN+4
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has one or more IN-HOSPITAL Visits on this date.",! Line Location: SELECT+1
Function Call: READ	Timeout: DTIME Variable: APCDLI Line Location: SRDR+0
Function Call: WRITE	Prompt: !!,"Select one: " Line Location: SRDR+0
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: SRDR+3
Function Call: WRITE	Prompt: !,"No Hospitalization Visit on that date for this patient!" Line Location: GETHOSP+4
Function Call: WRITE	Prompt: !,"In-Hospital Visit Linked!!" Line Location: LINK+7
Function Call: WRITE	Prompt: !,APCDLI," TIME: ",APCDLT," LOC: ",APCDLOC," TYPE: ",$P(APCDLX,U,3)," CATEGORY: ",$P(APCDLX,U,7)," CLINIC: ",$S($P(APCDLX,U,8)]"":$P(^DIC(40.7,$P(APCDLX,U,8),0),U),1:"<NONE>") Line Location: WRITE+5
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Do you want to see the Entire Visit (V FILE entries)?" Line Location: DISP+3
Routine Call	DIE Line Location: LINK+1
Routine Call	DIC Line Location: GETPAT+2
Routine Call	DIR Line Location: GETIN GETHOSP CONFIRM+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	GETIN+3, SELECT+2, GETHOSP+3
^AUPNVSIT("AC"	GETIN+3, GETHOSP+3
^AUTTLOC - [#9999999.06]	WRITE+3
^DIC(40.7 - [#40.7]	WRITE+5
^DPT - [#2]	SELECT+1

Label References

Name	Line Occurrences
CONFIRM	PROCESS+11
DISP	GETIN+5, GETIN+8, GETHOSP+5, GETHOSP+9
EOJ	PROCESS+3, PROCESS+6, PROCESS+9, PROCESS+12, PROCESS+15
GETHOSP	PROCESS+8
GETIN	PROCESS+5
GETPAT	PROCESS+2
LINK	PROCESS+13
SELECT	GETIN+6, SRDR+2, SRDR+3, GETHOSP+7
WRITE	SELECT+2

Naked Globals

Name	Field # of Occurrence
^(0	GETIN+3, GETHOSP+3, WRITE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISP+3*, EOJ+1!
%DT	EOJ+1!
%Y	DISP+3*, DISP+4, EOJ+1!
A	DISP+2!
APCDANS	PROCESS+10, PROCESS+12, CONFIRM+2, CONFIRM+3*, EOJ+1!
APCDDFN	GETIN+7, GETIN+8, SRDR, SRDR+4, GETHOSP+6*, GETHOSP+8, GETHOSP+9, EOJ+1!
APCDFAIL	PROCESS+13, PROCESS+14, LINK+2, EOJ+1!
APCDH	PROCESS+7, PROCESS+9, GETHOSP+5, GETHOSP+9*, LINK+1, EOJ+1!
APCDHLER	LINK+5*!
APCDI	PROCESS+4, PROCESS+6, GETIN+5, GETIN+8*, LINK+1, LINK+4, LINK+5, EOJ+1!
APCDJ	HDR+2*, HDR+3!
APCDLDC	GETIN+2, GETIN+3, GETHOSP+2, GETHOSP+3, EOJ+1!
APCDLDT	EOJ+1!
APCDLI	GETIN+2, GETIN+3, GETIN+5, SELECT+2, SRDR, SRDR+1, SRDR+2, SRDR+3, SRDR+4, GETHOSP+2* , GETHOSP+3*, GETHOSP+5, WRITE+5, EOJ+1!
APCDLKT	GETIN+1!, GETIN+4, GETHOSP+1!, GETHOSP+4, EOJ+1!
APCDLKT(	GETIN+3, SELECT+2, SRDR+3, SRDR+4, GETHOSP+3
APCDLKT(1	GETIN+5, GETHOSP+5
APCDLOC	WRITE+2, WRITE+3, WRITE+4*, WRITE+5, WRITE+6!, EOJ+1!
APCDLT	WRITE+1*, WRITE+5, WRITE+6!, EOJ+1!
APCDLV	GETIN+2, GETIN+3, SELECT+3, GETHOSP+2, GETHOSP+3*, EOJ+1!
APCDLX	SELECT+2*, WRITE+1, WRITE+3, WRITE+5, EOJ+1!
APCDPAT	PROCESS+1, PROCESS+3, GETPAT+4, GETIN+3, SELECT+1, GETHOSP+3, EOJ+1!
>> APCDVDSP	DISP+5*
APCDX	HDR+2*, HDR+3!
C	EOJ+1!
D	EOJ+1!
D0	DISP+2!, EOJ+1!
DA	GETIN+5, GETIN+8, GETHOSP+5, GETHOSP+9, LINK+1*, DISP+4!, DISP+5!, EOJ+1!
DIC	GETPAT+2!, DISP+2!, EOJ+1!
DIC(0	GETPAT+2*
DICR	EOJ+1!
DIE	LINK+1*, EOJ+1!
DIH	EOJ+1!
DIQ	DISP+2!
DIR	GETIN!, GETHOSP!, CONFIRM+1!
DIR("A"	GETIN, GETHOSP, CONFIRM+1*
DIR("B"	CONFIRM+1*
DIR(0	GETIN, GETHOSP, CONFIRM+1*
>> DIRUT	GETIN, GETHOSP, CONFIRM+1*, CONFIRM+2
DIU	EOJ+1!
DIV	EOJ+1!
DIW	EOJ+1!
DK	DISP+2!
DL	DISP+2!
DR	LINK+1*, DISP+2!, EOJ+1!
DTIME	SRDR
>> DTOUT	GETHOSP
>> DUOUT	GETIN, GETHOSP, CONFIRM+1
IOF	HDR+1
S	DISP+2!
U	GETIN+3, SELECT+1, GETHOSP+3, WRITE+3, WRITE+5
X	GETHOSP*, DISP+2!, EOJ+1!
Y	GETPAT+3, GETPAT+4, GETIN+2!, GETHOSP+2!, LINK+2, CONFIRM+3, DISP+2!, EOJ+1!

Marked Items

Customize PDF page

Package: Patient Care Component

Routine: APCDLINK

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items