Routine: BMCADDFY

Information

BMCADDFY ; IHS/PHXAO/TMJ - ADD A NEW REFERRAL FOR A SPECIFIC FISCAL YEAR ; [ 01/09/2006 3:51 PM ]

Source Information

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Referred Care Information System	9	($$ASF,$$REFNFY,EOP,HDR,PARMSET,PAUSE)^BMC (ADDVREF,BOCOM)^BMCADD (COMMENTS,DXPX,STATIC)^BMCADD1 ^BMCADD2 DSPV^BMCADDP (DDS,DIC,DIE,FILE)^BMCFMC ^BMCKILL START^BMCLKID1 ^BMCREF
VA Fileman	3	%XY^%RCR (,IX1)^DIK ^DIR
IHS Patient	1	$$DOD^AUPNPAT
IHS Standard Terminology	1	$$DESC^BSTSAPI
Kernel	1	$$LOW^XLFSTR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Referred Care Information System	1	BMC ADD REFERRAL PREVIOUS FY

Entry Points

Name	Comments	DBIA/ICR reference
ADD2	;add if routine referrals have been defined
EOJ	; END OF JOB
L16
NUMBER	;GENERATE REF NUMBER
GETANS	;
REFNUM	;Get Referral Number Choice
DXPX	; GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
PATIENT2	;ASK FOR PAT UNTIL USER SELECTS OR QUITS
STATIC	; STORE STATIC DATA
DATE	;GET DT OF REF
PATIENT	; GET PATIENT
RR	;routine referral selected
NEXT	;2ND $O
ASK	;Ask to Continue
GETDATE	;Do Get Date if no existing Refs
G30	;
SHOW	;Display last 5-10 Referrals #
START	;
ADD	; ADD NEW REFERRAL RECORD
REFDISP	;Display if Pat has existing Refs
PROV	;GET REQ PROV
EDIT	; EDIT REFERRAL RECORD JUST ADDED
MAIN	;
DELETE	; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH

External References

Name	Field # of Occurrence
%XY^%RCR	RR+11
$$DOD^AUPNPAT	PATIENT2+5
$$ASF^BMC	NUMBER+10
$$REFNFY^BMC	REFNUM+8
EOP^BMC	DATE+10, NUMBER+8, REFNUM+3, REFNUM+6, REFNUM+12, ADD+10, RR+7
HDR^BMC	START+2
PARMSET^BMC	START+1
PAUSE^BMC	EDIT+10, DELETE+3
ADDVREF^BMCADD	GETDATE+10
BOCOM^BMCADD	EDIT+13
COMMENTS^BMCADD1	DXPX+8
DXPX^BMCADD1	DXPX+1
STATIC^BMCADD1	STATIC+1
^BMCADD2	G30+10
DSPV^BMCADDP	GETDATE+7
DDS^BMCFMC	EDIT+5
DIC^BMCFMC	PATIENT2+1
DIE^BMCFMC	RR+22
FILE^BMCFMC	ADD+9, RR+5
^BMCKILL	EOJ+1
START^BMCLKID1	NEXT+7
^BMCREF	RR+24, EDIT+8
$$DESC^BSTSAPI	RR+13
^DIK	DELETE+2
IX1^DIK	RR+19
^DIR	PATIENT2+7, ASK+2, DATE+3, PROV+3, NUMBER+6, REFNUM+2, G30+4, GETANS+1, DXPX+6
$$LOW^XLFSTR	ADD2+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+6
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+8
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: REFDISP+1
Function Call: WRITE	Prompt: ?25,"LAST 5 REFERRALS",!,?25,"********************",! Line Location: REFDISP+2
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING REFERRALS--",! Line Location: REFDISP+3
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,?5,"You will now be asked for a 2-Digit Fiscal Year and a Referral Number.",! Line Location: NUMBER+1
Function Call: WRITE	Prompt: ?5,"The last 10 Referrals for that Fiscal Year will be displayed on screen.",! Line Location: NUMBER+2
Function Call: WRITE	Prompt: ?5,"Enter the next desired number for that Fiscal Year (1-5 Characters)",! Line Location: NUMBER+3
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: SHOW+1
Function Call: WRITE	Prompt: ?10,"LAST 10 REFERRALS FOR FISCAL YEAR "_BMCFY_"",!,?25,"********************",! Line Location: SHOW+2
Function Call: WRITE	Prompt: !,?10,"--NO EXISTING REFERRALS FOR THIS FISCAL YEAR--",! Line Location: SHOW+3
Function Call: WRITE	Prompt: !,?10,$P($G(^BMCREF(BMCIEN,0)),U,2) Line Location: SHOW+8
Function Call: WRITE	Prompt: ! Line Location: REFNUM+1
Function Call: WRITE	Prompt: !,"Referral number already used, try another number.",! Line Location: REFNUM+10
Function Call: WRITE	Prompt: !,"Error generating new referral number. Notify programmer.",! Line Location: REFNUM+12
Function Call: WRITE	Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",! Line Location: ADD+10
Function Call: WRITE	Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",! Line Location: RR+7
Function Call: WRITE	Prompt: !!,"Error in editing referral entry. NOTIFY PROGRAMMER." Line Location: RR+23
Function Call: WRITE	Prompt: !,"Please select the referral form you wish to use." Line Location: ADD2+7
Function Call: WRITE	Prompt: !!?5,"1. ",BMCSEL(1) Line Location: ADD2+8
Function Call: WRITE	Prompt: !?5,"2. ",BMCSEL(2) Line Location: ADD2+9
Function Call: WRITE	Prompt: !?5,"3. ",BMCSEL(3) Line Location: ADD2+10
Function Call: WRITE	Prompt: !?5,"4. ",BMCSEL(4) Line Location: ADD2+11
Function Call: WRITE	Prompt: !?5,I,". ",$P(BMCSEL(I),U,2) Line Location: L16+1
Function Call: WRITE	Prompt: ?40,J,") ",$P(BMCSEL(J),U,2) Line Location: L16+5
Function Call: WRITE	Prompt: ! Line Location: GETANS+1
Function Call: WRITE	Prompt: !,"You must enter a Vendor, IHS Facility or In-House Clinic, depending on the",!,"referral type.",! Line Location: EDIT+10
Function Call: WRITE	Prompt: !!,"INCOMPLETE REFERRAL BEING DELETED!",!! Line Location: DELETE+1
Routine Call	DIR Line Location: PATIENT2+7 ASK+2 DATE+3 PROV+3 NUMBER+6 REFNUM+2 G30+4 GETANS+1 DXPX+6

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	NEXT+5, SHOW+7, SHOW+8, RR+14, RR+15!, RR+16, RR+18*, EDIT+9
^BMCREF("AA"	REFDISP+3, REFDISP+5, NEXT+2, DATE+8
^BMCREF("C"	REFNUM+10
^BMCREF("FY"	SHOW+3, SHOW+5
^BMCRTNRF - [#90001.32]	RR+13, ADD2+14
^BMCRTNRF("B"	ADD2+12, ADD2+14
^DD(90001	REFNUM+11
^DPT - [#2]	PATIENT2+3

Label References

Name	Line Occurrences
ADD	GETDATE+5
ADD2	ADD+2
ASK	MAIN+8
DATE	GETDATE+1
DELETE	GETDATE+7, EDIT+6
DXPX	EDIT+11
EDIT	GETDATE+8, EDIT+10
EOJ	START+3
GETANS	L16+2, L16+6
GETDATE	MAIN+7
MAIN	START+2
NEXT	REFDISP+5
NUMBER	GETDATE+3, REFNUM+3
PATIENT	MAIN+4
PATIENT2	PATIENT+1
PROV	ADD+4
REFDISP	MAIN+6
REFNUM	REFNUM+5, REFNUM+10
STATIC	EDIT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	RR+11*
>> %Y	RR+11*
>> APCDOVRR	MAIN+3*
>> BMCCTYP	DXPX+4*
>> BMCCUT	L16+4*, L16+5
BMCDFN	PATIENT+1, PATIENT2+3*, PATIENT2+5!, REFDISP+3, REFDISP+5, NEXT+2, DATE+8, ADD+8, RR+21
BMCDISP	ADD2+1!
BMCDISP(	L16+5*
>> BMCDT	REFDISP+4, REFDISP+5, NEXT+2, NEXT+3
>> BMCFY	NUMBER+7*, NUMBER+8, NUMBER+12, SHOW+2
BMCHIGH	ADD2+1!, ADD2+2, ADD2+3, ADD2+4, ADD2+5, ADD2+14*, L16+4, G30+4, GETANS+1
>> BMCIEN	SHOW+4, SHOW+5, SHOW+6, SHOW+7, SHOW+8
>> BMCLOOK	MAIN+1*
BMCMINI	ADD2+1!, G30+8, GETANS+5, EDIT+4, EDIT+13
BMCMINIX	ADD2+1!, G30+9, GETANS+6, EDIT+4, EDIT+13
>> BMCMODE	MAIN+1*
BMCOUTR	GETDATE+7, GETDATE+10, PROV+2, ADD2+1!, G30+7, GETANS+4, EDIT+4
BMCOVRPS	RR+4*, RR+6!
>> BMCPARM	START+1
>> BMCPCC	GETDATE+7, GETDATE+10
>> BMCPROV	PROV+1, PROV+5, ADD+8, RR+21
>> BMCQ	START+2, MAIN+1, MAIN+5, MAIN+7, MAIN+9, GETDATE+2, GETDATE+4, GETDATE+6, GETDATE+7, GETDATE+9 , PATIENT+1, PATIENT2+1, PATIENT2+4, ASK+1, ASK+3, ASK+4, REFDISP+3, REFDISP+4, DATE+2, DATE+6 , DATE+11, PROV+1, PROV+2, PROV+6, NUMBER+5, SHOW+3, SHOW+4, REFNUM+13, ADD+1, ADD+4 , ADD+13, RR+25, EDIT+6
>> BMCRDATE	DATE+5*, DATE+8, ADD+7, RR+5, RR+18
>> BMCREC("PAT N	AME" , PATIENT2+3*, PATIENT2+5!, DATE+9
>> BMCREC("REF D	ATE" , DATE+5*, DATE+9
>> BMCRIEN	NEXT+1, NEXT+2, NEXT+4, NEXT+5, ADD+12, RR+8, RR+11, RR+14, RR+15, RR+16 , RR+18, RR+19, RR+24, EDIT+1, EDIT+7, EDIT+9, DELETE+2
>> BMCRNUM	REFNUM+4*, REFNUM+5, REFNUM+6
>> BMCRNUMB	REFNUM+13*, ADD+8, ADD+11, RR+21
>> BMCRPROV	PROV+5*
BMCRR	ADD+2, ADD+3, ADD+5, RR+11, RR+13, ADD2+1!, G30+6, G30+7, G30+8, G30+9* , G30+10!, GETANS+3, GETANS+4, GETANS+5, GETANS+6, GETANS+7*
>> BMCRRC	ADD2+12*, ADD2+13, L16, L16+3, G30+1
>> BMCRTYPE	EDIT+9
>> BMCSCOD	MAIN+1, RR+12, RR+13*
BMCSEL	ADD2+1!
BMCSEL(	ADD2+14*, L16+1, L16+5, GETANS+7
BMCSEL(1	ADD2+2*, ADD2+8
BMCSEL(2	ADD2+3*, ADD2+9
BMCSEL(3	ADD2+4*, ADD2+10
BMCSEL(4	ADD2+5*, ADD2+11
BMCSEL(5	G30+2*, G30+3
>> BMCSNO	MAIN+1*
>> BMCSTART	NUMBER+12*, NUMBER+13, SHOW+3, SHOW+5
>> BMCSTRM	MAIN+1, RR+12, RR+13*
>> BMCSUFAC	NUMBER+10*, NUMBER+11, NUMBER+12
>> BMCVDFN	MAIN+1*
CT	REFDISP+4, REFDISP+5, REFDISP+6!, NEXT+6, NEXT+8
DA	PATIENT2+7!, ASK+2!, DATE+3!, PROV+3!, NUMBER+6!, REFNUM+2!, RR+19, EDIT+1, DELETE+2*
>> DDSCHANG	EDIT+6
>> DDSFILE	EDIT+1*
>> DDSPARM	EDIT+4*
>> DIC	PATIENT2+1, ADD+7, RR+5*
>> DIC("DR"	ADD+8*
>> DIC(0	PATIENT2+1, ADD+7, RR+5*
>> DIE	RR+21*
>> DIK	RR+19, DELETE+2
DIR	PATIENT2+7!, ASK+2!, DATE+3!, PROV+3!, NUMBER+6!, REFNUM+2!, G30+4!, GETANS+1!, DXPX+6!
DIR("?"	NUMBER+6, REFNUM+2, DXPX+5*
DIR("A"	PATIENT2+7, ASK+2, PROV+3, NUMBER+6, REFNUM+2, G30+4, GETANS+1, DXPX+4
DIR("B"	PATIENT2+7, ASK+2, DATE+3, G30+4, GETANS+1, DXPX+5
DIR(0	PATIENT2+7, ASK+2, DATE+3, PROV+3, NUMBER+6, REFNUM+2, G30+4, GETANS+1, DXPX+5*
>> DIRUT	ASK+3, DATE+4, PROV+4, REFNUM+3, G30+5, GETANS+2, DXPX+7
>> DLAYGO	ADD+7, RR+5
>> DR	RR+21, EDIT+4
DT	ADD+8, RR+21
DUZ	ADD+8, RR+21
>> I	REFDISP+5, SHOW+4, SHOW+5, SHOW+9, L16+1, L16+5*
IOF	ADD2+6
>> J	L16+5*
>> K	L16+5*
U	PATIENT2+3, NEXT+5, PROV+5, SHOW+7, SHOW+8, REFNUM+11, RR+13, RR+14, RR+16, RR+18 , ADD2+14, L16+1, L16+5, GETANS+7, EDIT+9
>> X	REFNUM+8, REFNUM+9, REFNUM+10, REFNUM+12, REFNUM+13, ADD+7, RR+5, ADD2+12, ADD2+14, EDIT+9 , EDIT+10
>> Y	PATIENT2+2, PATIENT2+3, PATIENT2+5, ASK+4, DATE+5, PROV+5, NUMBER+7, REFNUM+4, ADD+10, ADD+12 , RR+7, RR+8, RR+23, RR+24, ADD2+14, G30+6, G30+7, G30+8, G30+9, G30+10 , GETANS+3, GETANS+4, GETANS+5, GETANS+6, GETANS+7, EDIT+7*, DXPX+7
>> Y(0	DATE+5

Customize PDF page

Package: Referred Care Information System

Routine: BMCADDFY

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: