Routine: BMCMINI

Information

BMCMINI ; IHS/PHXAO/TMJ - MINI ADD A NEW REFERRAL ;

Source Information

Source file <BMCMINI.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Referred Care Information System	6	($$REFN,EOP,HDR,PARMSET,PAUSE)^BMC ENMM^BMCBULL (DDS,DIC,DIE,FILE)^BMCFMC ^BMCKILL PROC^BMCMOD ^BMCREF
VA Fileman	3	DD^%DT ^DIK ^DIR
IHS Patient	1	($$DOD,$$MCD,$$MCR,$$PI)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
PATIENT	; GET PATIENT
EDIT	; EDIT REFERRAL RECORD JUST ADDED
EOJ	; END OF JOB
DXPX	; GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
NUMBER	; GENERATE REFERRAL NUMBER
COMMENTS	; GET COMMENTS
START	;
ADD	; ADD NEW REFERRAL RECORD
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
STATIC	; STORE STATIC DATA
DX	; GET PROVISIONAL DIAGNOSES
DATE	; GET DATE OF REFERRAL
MAIN	;
PX	; GET PROVISIONAL PROCEDURES
DELETE	; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH

External References

Name	Field # of Occurrence
DD^%DT	DX+3
$$DOD^AUPNPAT	PATIENT2+6
$$MCD^AUPNPAT	STATIC+25
$$MCR^AUPNPAT	STATIC+24
$$PI^AUPNPAT	STATIC+26
$$REFN^BMC	NUMBER+2, DX+2
EOP^BMC	NUMBER+4, ADD+4, STATIC+36
HDR^BMC	START+2
PARMSET^BMC	START+1
PAUSE^BMC	DELETE+3
ENMM^BMCBULL	STATIC+32, STATIC+33, STATIC+34, STATIC+35
DDS^BMCFMC	EDIT+2
DIC^BMCFMC	PATIENT2+2
DIE^BMCFMC	DX+13, PX+9, COMMENTS+8, COMMENTS+11, STATIC+29
FILE^BMCFMC	ADD+3
^BMCKILL	EOJ+1
PROC^BMCMOD	DXPX+4
^BMCREF	EDIT+5
^DIK	DELETE+2
^DIR	PATIENT2+8, DATE+2, DX+7, PX+3, COMMENTS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !,"Error generating new referral number. Notify programmer.",! Line Location: NUMBER+4
Function Call: WRITE	Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",! Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"REFERRAL number : ",BMCRNUMB,! Line Location: ADD+5
Function Call: WRITE	Prompt: !!,"INCOMPLETE REFERRAL BEING DELETED!",!! Line Location: DELETE+1
Function Call: WRITE	Prompt: !?5,"Referral #: ",$$REFN^BMC Line Location: DX+2
Function Call: WRITE	Prompt: !?5,"Referral Date: " Line Location: DX+3
Function Call: WRITE	Prompt: Y Line Location: DX+3
Function Call: WRITE	Prompt: ?40,"Patient Name: ",$P(^DPT(BMCDFN,0),U) Line Location: DX+4
Function Call: WRITE	Prompt: !! Line Location: DX+5
Function Call: WRITE	Prompt: ! Line Location: PX+1
Function Call: WRITE	Prompt: ! Line Location: COMMENTS+1
Function Call: WRITE	Prompt: !,"Storing static fields....",! Line Location: STATIC+1
Function Call: WRITE	Prompt: !,"Entry of Referral ",$P(^BMCREF(BMCRIEN,0),U,2)," is complete.",! Line Location: STATIC+30
Routine Call	DIR Line Location: PATIENT2+8 DATE+2 DX+7 PX+3 COMMENTS+3

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	STATIC+11, STATIC+15
^AUTTLOC - [#9999999.06]	STATIC+13
^AUTTTRI - [#9999999.03]	STATIC+17
^AUTTVNDR - [#9999999.11]	STATIC+20, STATIC+21
^BMCREF - [#90001]	DX+3, STATIC+3, STATIC+30
^DD(90001	NUMBER+3
^DIC(4 - [#4]	STATIC+12
^DPT - [#2]	PATIENT2+4, DX+4, STATIC+4

Name	Line Occurrences
ADD	MAIN+10
DATE	MAIN+6
DELETE	EDIT+3
DX	DXPX+2
DXPX	EDIT+7
EDIT	MAIN+12
EOJ	START+3
MAIN	START+2
NUMBER	MAIN+8
PATIENT	MAIN+4
PATIENT2	PATIENT+1
STATIC	EDIT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STATIC+9, STATIC+10, STATIC+11, STATIC+12, STATIC+13, STATIC+18, STATIC+19, STATIC+20, STATIC+21, STATIC+23* , STATIC+24, STATIC+25, STATIC+26
>> APCDOVRR	MAIN+3*
>> BMCCHSA	STATIC+32
BMCDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, ADD+2, DX+4, STATIC+4, STATIC+11, STATIC+15, STATIC+24, STATIC+25 , STATIC+26
BMCDX	DX+15, DX+16!
>> BMCDXPR	DXPX+1
>> BMCDXT	DX+11*
>> BMCHOUSA	STATIC+35
>> BMCIHSA	STATIC+33
BMCLOOK	MAIN+2, DX+10, DX+14!, PX+6, PX+10!, COMMENTS+6, COMMENTS+9!
>> BMCMODE	MAIN+2*
>> BMCOTHRA	STATIC+34
>> BMCPARM	START+1
BMCPX	PX+11, PX+12!
>> BMCPXT	PX+7*
>> BMCQ	START+2, MAIN+1, MAIN+5, MAIN+7, MAIN+9, MAIN+11, PATIENT+1, PATIENT2+1, PATIENT2+5, DATE+1 , DATE+4, DATE+14, NUMBER+1, NUMBER+6, ADD+1, ADD+8, EDIT+3, DX+9, DX+15, DX+18 , PX+5, PX+11, PX+14, COMMENTS+5, COMMENTS+13*
>> BMCRDATE	DATE+3*, ADD+2
>> BMCREC	STATIC+3*, STATIC+9, STATIC+18, STATIC+23
>> BMCREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!
>> BMCREC("REF D	ATE" , DATE+3*
>> BMCRIEN	ADD+7*, EDIT+1, EDIT+4, DELETE+2, DX+3, DX+12, PX+8, COMMENTS+7, COMMENTS+10, STATIC+3 , STATIC+28, STATIC+30
>> BMCRNUMB	NUMBER+5*, ADD+2, ADD+5
>> BMCRTYPE	STATIC+32, STATIC+33, STATIC+34, STATIC+35
DA	PATIENT2+8!, DATE+2!, EDIT+1, DELETE+2, DX+12, PX+8, COMMENTS+7, COMMENTS+10, STATIC+28*
>> DDSCHANG	EDIT+3
>> DDSFILE	EDIT+1*
>> DDSPARM	EDIT+1*
>> DIC	PATIENT2+2, ADD+2
>> DIC("DR"	ADD+2*
>> DIC(0	PATIENT2+2, ADD+2
>> DIE	DX+12, PX+8, COMMENTS+7, COMMENTS+10, STATIC+28*
>> DIK	DELETE+2*
DIR	PATIENT2+8!, DATE+2!, DX+7!, PX+3!, COMMENTS+3!
DIR("?"	DX+6, PX+2, COMMENTS+2*
DIR("A"	PATIENT2+8, DX+6, PX+2, COMMENTS+2
DIR("B"	PATIENT2+8, DATE+2, DX+6, PX+2, COMMENTS+2*
DIR(0	PATIENT2+8, DATE+2, DX+6, PX+2, COMMENTS+2*
>> DIRUT	DATE+2, DX+8, PX+4, COMMENTS+4
>> DLAYGO	ADD+2*
>> DR	EDIT+1, DX+12, PX+8, COMMENTS+7, COMMENTS+10, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+11 , STATIC+12, STATIC+13, STATIC+16, STATIC+17, STATIC+20, STATIC+21, STATIC+24, STATIC+25, STATIC+26*
DT	ADD+2
DUZ	ADD+2
IOF	DX+1
U	PATIENT2+4, NUMBER+3, DX+3, DX+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+9, STATIC+11 , STATIC+12, STATIC+13, STATIC+16, STATIC+17, STATIC+18, STATIC+20, STATIC+21, STATIC+23, STATIC+30
>> X	NUMBER+2, NUMBER+4, NUMBER+5, ADD+2
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, DATE+3, ADD+4, ADD+7, EDIT+4, DX+3, DX+9, PX+5 , COMMENTS+5, STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+15, STATIC+16, STATIC+17
>> Y(0	DATE+3

Customize PDF page

Package: Referred Care Information System

Routine: BMCMINI

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: