Routine: BMCPCCL

Information

BMCPCCL ; IHS/PHXAO/TMJ - PCC LINK FR RCIS OUTSIDE VISIT ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Patient Care Component	3	^APCDALV ^APCDALVR ^APCDVDLT
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
VA Fileman	2	^DIE ^DIR
IHS Patient	1	KILL^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Referred Care Information System	1	($$AVDOS,$$FACREF)^BMCRLU

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Referred Care Information System	2	BMCCLO BMCMOD

Entry Points

Name	Comments	DBIA/ICR reference
SETVISIT	;set up visit values
CONT	;
PRC	;
VFILES	;create v file entries
POV	;PURPOSE OF VISIT
NODX	;no dx's entered, use 2 categories as Pov's
START	;EP - ENTRY POINT BY TASKMAN
ADD	;add a visit
KILL	;
VHOSP	;
XIT	;CLEAN UP AND EXIT
PRC1	;
PROC	;
POV1	;
DELETE	;delete visit in PCC

External References

Name	Field # of Occurrence
^APCDALV	ADD+2
^APCDALVR	POV1+5, PRC+17, PRC1+5, VHOSP+6, NODX+8, NODX+18
^APCDVDLT	DELETE+3
KILL^AUPNPAT	XIT+4
$$AVDOS^BMCRLU	PRC+15, NODX+6, NODX+16
$$FACREF^BMCRLU	SETVISIT+9
^DIE	ADD+6
^DIR	CONT+1
$$ICDDX^ICDCODE	POV1+8
$$CPT^ICPTCOD	PRC1+8
$$VAL^XBDIQ1	POV1+4, PRC1+4
$$VALI^XBDIQ1	SETVISIT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - NO ACTUAL BEGIN DATE OF SERVICE ENTERED. LINK FAILED.",!! Line Location: PROC+2
Function Call: WRITE	Prompt: !,"Creating New PCC Visit, Hold on....." Line Location: PROC+8
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - PCC VISIT CREATION FAILED. LINK FAILED.",!! Line Location: ADD+3
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - TYPE OF REFERRAL ENTERED. LINK FAILED.",!! Line Location: SETVISIT+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - OTHER LOCATION ENTERED IN STIE FILE. LINK FAILED.",!! Line Location: SETVISIT+6
Function Call: WRITE	Prompt: !,"Deleting associated PCC Visit.",! Line Location: DELETE+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV ",$P(^ICD9(+^BMCDX(BMCX,0),0),U)_" FAILED.",!! Line Location: POV1+7
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV ",$P($$ICDDX^ICDCODE(+^BMCDX(BMCX,0),0),U,2)_" FAILED.",!! Line Location: POV1+8
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV CPT CATEGORY FAILED.",!! Line Location: PRC+18
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV ",$P(^ICPT(+^BMCPX(BMCX,0),0),U)_" FAILED.",!! Line Location: PRC1+7
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV ",$P($$CPT^ICPTCOD(+^BMCPX(BMCX,0),0),U,2)_" FAILED.",!! Line Location: PRC1+8
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Attempting PCC Link - V HOSPITALIZATION FAILED",! Line Location: VHOSP+7
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV DIAGNOSTIC CATEGORY FAILED.",!! Line Location: NODX+9
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Attempting PCC Link - POV CPT CATEGORY FAILED.",!! Line Location: NODX+19
Routine Call	DIE Line Location: ADD+6
Routine Call	DIR Line Location: CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BMCREF - [#90001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCDX - [#90001.01]	POV+7, POV+9, POV1+2, POV1+3, POV1+4, POV1+8
^BMCDX("AD"	POV+6, POV+7, POV+9, PRC+9
^BMCPX - [#90001.02]	PRC+6, PRC+8, PRC1+1, PRC1+4, PRC1+8
^BMCPX("AD"	PRC+6, PRC+8
^BMCREF - [#90001]	START+3, PROC+1, XIT+2
^BMCTDXC - [#90001.51]	NODX+7
^BMCTSVC - [#90001.52]	PRC+16, NODX+17
^ICD0("AB"	PRC1+2
^ICPT - [#81]	PRC1+1

Label References

Name	Line Occurrences
ADD	PROC+9
CONT	PROC+2, ADD+3, SETVISIT+4, SETVISIT+6, POV1+8, PRC+18, PRC1+8, VHOSP+7, NODX+9, NODX+19
DELETE	PROC+7
KILL	SETVISIT+1, XIT+1, POV+1, PRC+1, VHOSP+1
NODX	POV+6
POV	VFILES+1
POV1	POV+7, POV+9
PRC	VFILES+2
PRC1	PRC+6, PRC+8
PROC	START+4
SETVISIT	ADD+1
VFILES	ADD+5
VHOSP	VFILES+3
XIT	START+5

Naked Globals

Name	Field # of Occurrence
^(0	POV1+4, PRC1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRC1+1, PRC1+2, PRC1+3
A	XIT+5!
APCDAFLG	KILL+1!
APCDALVR	KILL+1!
APCDALVR("APCDAFLG"	ADD+3, POV1+8, PRC+18, PRC1+8, VHOSP+7, NODX+9, NODX+19
APCDALVR("APCDANE"	SETVISIT+8*
APCDALVR("APCDATMP"	POV+3, PRC+3, PRC+12, VHOSP+3, NODX+3, NODX+13
APCDALVR("APCDAUTO"	SETVISIT+8*
APCDALVR("APCDCAT"	SETVISIT+7*
APCDALVR("APCDDATE"	SETVISIT+3*
APCDALVR("APCDLOC"	SETVISIT+6*
APCDALVR("APCDLOOK"	VHOSP+5*
APCDALVR("APCDOLOC"	SETVISIT+9*
APCDALVR("APCDOVRR"	POV+5, PRC+5
APCDALVR("APCDPAT"	SETVISIT+5, POV+4, PRC+4, PRC+13, VHOSP+4, NODX+4, NODX+14*
APCDALVR("APCDTNQ"	POV1+4, PRC+16, PRC1+4, NODX+7, NODX+17*
APCDALVR("APCDTPOV"	POV1+2, PRC+15, NODX+6, NODX+16
APCDALVR("APCDTPRC"	PRC1+3*
APCDALVR("APCDTPS"	POV1+3*
APCDALVR("APCDTYPE"	SETVISIT+4*
APCDALVR("APCDVSIT"	ADD+4, POV+2, PRC+2, PRC+11, VHOSP+2, NODX+2, NODX+12
APCDALVR("AUPNTALK"	SETVISIT+2*
APCDANE	KILL+1!
APCDAPPT	KILL+1!
APCDATMP	KILL+1!
APCDAUTO	KILL+1!
APCDCAT	KILL+1!
APCDCLN	KILL+1!
APCDLOC	KILL+1!
APCDOLOC	KILL+1!
APCDPAT	KILL+1!
APCDTAT	KILL+1!
APCDTLOU	KILL+1!
APCDTNQ	KILL+1!
APCDTPOV	KILL+1!
APCDTPRO	KILL+1!
APCDTPRV	KILL+1!
APCDTPS	KILL+1!
APCDTTOP	KILL+1!
APCDTYPE	KILL+1!
APCDVDLT	DELETE+2*, KILL+1!
AUPNTALK	KILL+1!
BMCC	XIT+3!, POV+7, POV+8, POV1+1, PRC+6*, PRC+7
>> BMCDFN	SETVISIT+5, POV+4, PRC+4, PRC+13, VHOSP+4, NODX+4, NODX+14
>> BMCDOS	PRC+15, NODX+6, NODX+16*
>> BMCDX10	PRC+15, NODX+6, NODX+16
BMCERR	PROC+1, PROC+2, ADD+1, ADD+3, SETVISIT+4, SETVISIT+6, XIT+3!, POV1+8, PRC+18, PRC1+8 , VHOSP+7, NODX+9, NODX+19*
>> BMCPCC	START+2
BMCR0	PROC+1*, PROC+7, DELETE+2, XIT+3!, VFILES+3, PRC+10, PRC+16, NODX+1, NODX+7, NODX+11 , NODX+17
BMCR11	PROC+1*, PROC+2, SETVISIT+3, XIT+3!, VHOSP+5
>> BMCRIEN	START+3, PROC+1, ADD+6, SETVISIT+9, XIT+2, POV+6, POV+7, POV+9, PRC+6, PRC+8 , PRC+9, PRC+15, NODX+6, NODX+16
>> BMCRSTAT	PROC+4
>> BMCRTYPE	PROC+3, SETVISIT+4
BMCVFL	START+1, PROC+7, XIT+3!
BMCVSIT	ADD+4*, ADD+6, XIT+3!, POV+2, PRC+2, PRC+11, VHOSP+2, NODX+2, NODX+12
BMCX	XIT+3!, POV+7, POV+9, POV1+2, POV1+3, POV1+4, POV1+8, PRC+6, PRC+8, PRC1+1 , PRC1+4, PRC1+8
D	XIT+5!
D0	XIT+5!
DA	ADD+6!*, CONT+1!, XIT+5!
DDH	XIT+5!
DI	XIT+5!
DIC	XIT+5!
DIE	ADD+6!*, XIT+5!
DIPGM	XIT+5!
DIR	CONT+1!
DIR("A"	CONT+1*
DIR(0	CONT+1*
DIU	XIT+5!
DIV	XIT+5!
DIW	XIT+5!
DIY	XIT+5!
DO	XIT+5!
DQ	XIT+5!
DR	ADD+6!*, XIT+5!
DUZ(2	SETVISIT+6
U	PROC+2, PROC+7, SETVISIT+3, DELETE+2, VFILES+3, POV+7, POV+9, POV1+2, POV1+3, POV1+4 , POV1+8, PRC+6, PRC+8, PRC+10, PRC+16, PRC1+1, PRC1+4, PRC1+8, VHOSP+5, NODX+1 , NODX+7, NODX+11, NODX+17
X	XIT+5!

Customize PDF page

Package: Referred Care Information System

Routine: BMCPCCL

Information

Source Information

Call Graph

Call Graph Total: 10

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

Naked Globals

Local Variables

Legend: