Routine: BMCFPIN

Package	Total	Call Graph
Referred Care Information System	2	WP^BMCFDR $$AVDOS^BMCRLU
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRIORITY	;
HEAD	;
REFFROM	;
D	;
HEAD1	;
REFTO	;
PERTMED	;
DEMO	;Demographic Data
L	;
REFTYP	;REFERRAL TYPE
DATE	;
S	;
HEAD2	;
PURPOSE	;
W	;
WP	;
PRINT	;
FLUP	;FOLLOW UP INFO
ADDINFO	;
ADDMED	;

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	DEMO+5
WP^BMCFDR	WP+1
$$AVDOS^BMCRLU	DATE+3, PURPOSE+13
^DIR	HEAD+2
$$ICDDX^ICDEX	PURPOSE+14
$$VAL^XBDIQ1	PRINT+5, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+4, DATE+5 , PURPOSE+1, PURPOSE+20, ADDMED+2, PRIORITY+2, PRIORITY+3, REFFROM+2, DEMO+3, DEMO+4, ADDINFO+3, ADDINFO+4 , ADDINFO+5, ADDINFO+6, ADDINFO+7, ADDINFO+8, ADDINFO+9, ADDINFO+10, ADDINFO+11, ADDINFO+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Please select an IN-HOUSE Referral" Line Location: PRINT+5
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTYP+2
Function Call: WRITE	Prompt: ! Line Location: REFTYP+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTYP+4
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTO+2
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTO+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTO+4
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTO+5
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: REFTO+6
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DATE+2
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DATE+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DATE+4
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DATE+5
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PURPOSE+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PURPOSE+4
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PURPOSE+5
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PERTMED+1
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: ADDMED+2
Function Call: WRITE	Prompt: "Follow up visit MUST be approved by an IHS physcian.",!,"Please provide additional Notes: ",!!!! Line Location: FLUP+2
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PRIORITY+2
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PRIORITY+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: PRIORITY+4
Function Call: WRITE	Prompt: !! Line Location: PRIORITY+5
Function Call: WRITE	Prompt: "_" Line Location: PRIORITY+5
Function Call: WRITE	Prompt: ?45,"____________________" Line Location: PRIORITY+6
Function Call: WRITE	Prompt: !,"SIGNATURE",?45,"DATE" Line Location: PRIORITY+7
Function Call: WRITE	Prompt: "Referring Facility: ",$$VAL^XBDIQ1(9999999.06,DUZ(2),.01) Line Location: REFFROM+2
Function Call: WRITE	Prompt: !,"Referring Provider: " Line Location: REFFROM+3
Function Call: WRITE	Prompt: !! Line Location: REFFROM+4
Function Call: WRITE	Prompt: "_" Line Location: REFFROM+4
Function Call: WRITE	Prompt: ?45,"____________________" Line Location: REFFROM+5
Function Call: WRITE	Prompt: !,"SIGNATURE",?45,"DATE",! Line Location: REFFROM+6
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DEMO+2
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DEMO+3
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DEMO+4
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: DEMO+5
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: ADDINFO+2
Function Call: WRITE	Prompt: !,"PCC VISIT FORM: ",$$VAL^XBDIQ1(90001,BMCREF,401) Line Location: ADDINFO+3
Function Call: WRITE	Prompt: ?28,"SPECIALTY CLINIC NOTES: ",$$VAL^XBDIQ1(90001,BMCREF,402) Line Location: ADDINFO+4
Function Call: WRITE	Prompt: ?55,"PRENATAL RECORD/S: ",$$VAL^XBDIQ1(90001,BMCREF,403) Line Location: ADDINFO+5
Function Call: WRITE	Prompt: !,"FACE SHEET: ",$$VAL^XBDIQ1(90001,BMCREF,405) Line Location: ADDINFO+6
Function Call: WRITE	Prompt: ?28,"HEALTH SUMMARY: ",$$VAL^XBDIQ1(90001,BMCREF,406) Line Location: ADDINFO+7
Function Call: WRITE	Prompt: ?55,"MOST RECENT EKG: ",$$VAL^XBDIQ1(90001,BMCREF,407) Line Location: ADDINFO+8
Function Call: WRITE	Prompt: !,"HISTORY AND PHYSICAL: ",$$VAL^XBDIQ1(90001,BMCREF,408) Line Location: ADDINFO+9
Function Call: WRITE	Prompt: ?28,"E-RAY/REPORT: ",$$VAL^XBDIQ1(90001,BMCREF,409) Line Location: ADDINFO+10
Function Call: WRITE	Prompt: ?55,"MOST RECENT LAB REPORT: ",$$VAL^XBDIQ1(90001,BMCREF,412) Line Location: ADDINFO+11
Function Call: WRITE	Prompt: !?32,"E-RAY FILM: ",$$VAL^XBDIQ1(90001,BMCREF,410) Line Location: ADDINFO+12
Function Call: WRITE	Prompt: !,"ADDITIONAL DOCUMENTS: " Line Location: ADDINFO+13
Function Call: WRITE	Prompt: ! Line Location: W+5
Function Call: WRITE	Prompt: ?(IOM-$L(X)/2),X Line Location: W+6
Function Call: WRITE	Prompt: ?%,X Line Location: W+7
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: L+1
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: D+1
Function Call: WRITE	Prompt: Q:BMCQUIT Line Location: S+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HEAD2+2
Function Call: WRITE	Prompt: !,?(IOM-20),"Page ",BMCPG Line Location: HEAD2+2
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCCOM - [#90001.03]	PERTMED+4
^BMCCOM("AD"	PERTMED+3
^BMCDX - [#90001.01]	PURPOSE+14
^BMCDX("AD"	PURPOSE+7, PURPOSE+9
^BMCPX("AD"	PURPOSE+16, PURPOSE+18
^BMCREF - [#90001]	PRINT+2, DATE+5

Label References

Name	Line Occurrences
@(	PRINT+3
DATE	PRINT+6
HEAD	PERTMED+8, ADDINFO+16, W+4
L	REFTYP+1, REFTO+1, DATE+1, DATE+6, PURPOSE+21, ADDMED+1, FLUP+1, PRIORITY+1, REFFROM+1, ADDINFO+1
PURPOSE	PRINT+6
REFTO	PRINT+6
REFTYP	PRINT+6
W	REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4 , DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2 , DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, L+1, D+1, S+1
WP	PERTMED+6, ADDINFO+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	W+2~, W+3, W+7
>> BMCCMT	PERTMED+2, PERTMED+3, PERTMED+4, PERTMED+5
>> BMCDA	PERTMED+5, ADDINFO+14
>> BMCDFN	PRINT+2*
>> BMCDOS	PURPOSE+13*, PURPOSE+14
>> BMCFILE	PERTMED+5, ADDINFO+14
BMCIOM	PERTMED+5, PERTMED+6!, ADDINFO+14!
>> BMCNODE	PERTMED+5, ADDINFO+14
>> BMCPG	PRINT+2, HEAD2+1, HEAD2+2*
>> BMCQUIT	PRINT+4, PRINT+5, REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2 , DATE+3, DATE+4, DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, PERTMED+7, PERTMED+8, ADDMED+2 , PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+1, DEMO+2, DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, ADDINFO+15 , ADDINFO+16, W+4, L+1, D+1, S+1, HEAD+2*
>> BMCR0	PRINT+2*, DATE+3, DEMO+4, DEMO+5
>> BMCREF	PRINT+2, PRINT+5, REFTYP+4, REFTO+2, DATE+2, DATE+3, DATE+4, DATE+5, PURPOSE+1, PURPOSE+7 , PURPOSE+9, PURPOSE+16, PURPOSE+18, PERTMED+3, ADDMED+2, PRIORITY+2, PRIORITY+3, DEMO+3, ADDINFO+3, ADDINFO+4 , ADDINFO+5, ADDINFO+6, ADDINFO+7, ADDINFO+8, ADDINFO+9, ADDINFO+10, ADDINFO+11, ADDINFO+12, ADDINFO+14
>> BMCRIEN	PURPOSE+13
>> BMCWP(	PERTMED+7, PERTMED+9, ADDINFO+15, ADDINFO+17
>> BMCX	PURPOSE+3, PURPOSE+4, PURPOSE+9, PURPOSE+14, PURPOSE+18*, PURPOSE+20
C	REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4 , DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2 , DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, W+6, L+1, D+1, S+1*, HEAD+1~
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DTOUT	HEAD+2
DUZ(2	REFTO+3, REFTO+4, REFTO+5, REFTO+6, REFFROM+2, DEMO+5
>> I	PRIORITY+5, REFFROM+4, W+5*
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1, HEAD2+2
IOM	PURPOSE+2, PURPOSE+3, PURPOSE+4, W+6, L+1, D+1, S+1, HEAD2+2
IOSL	PERTMED+8, ADDINFO+16, W+4
IOST	PRINT+3, HEAD+2
N	REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4 , DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2 , DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, W+5, L+1, D+1, S+1*, HEAD+1~
T	REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4 , DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2 , DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, W+7, L+1, D+1, S+1*, HEAD+1~
U	PRINT+2, DATE+3, DATE+5, PURPOSE+14, PERTMED+4, DEMO+4, DEMO+5
X	REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4 , DATE+5, PURPOSE+1, PURPOSE+2, PURPOSE+3, PURPOSE+4, PURPOSE+9, PURPOSE+10, PURPOSE+18, PURPOSE+19, PERTMED+1* , ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2, DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, W+1 , W+3, W+6, W+7, L+1, D+1, S+1, HEAD+1~
Y	PERTMED+7, PERTMED+9, ADDINFO+15, ADDINFO+17, HEAD+1~, HEAD+2

Customize PDF page

Package: Referred Care Information System

Routine: BMCFPIN

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: