Routine: BMCADDS

Information

BMCADDS ;IHS/ITSC/FCJ - ADD SECONDARY REFERRAL; [ 09/27/2006 1:31 PM ]

Source Information

Source file <BMCADDS.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Referred Care Information System	7	($$CTR,HDR,PARMCHK,PAUSE)^BMC (ADDVREF,CALLIN,COMMENTS)^BMCADD DSPV^BMCADDP (DDS,DIC)^BMCFMC ^BMCKILL (80,ASK)^BMCMOD DISPCOM^BMCMOD1
VA Fileman	3	FILE^DICN ^DIK ^DIR
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Referred Care Information System	2	BMC ADD SECONDARY REFERRAL BMCAPI

Entry Points

Name	Comments	DBIA/ICR reference
CALLIN	;EP;TEST FOR CALL-IN REF
BUSINESS	; EDIT BUSINESS OFFICE COMMENTS
RECORD	;RECORD SECONDARY REFERRAL
EDIT	; EDIT REFERRAL RECORD JUST ADDED
MEDCOM	;ADD MED HX COMMENTS
START	;
ADD	;EP;FIND SUFFIX
SBCOM	;ADD BO/CHS COMMENTS ;BMC4.03 8.13.07 IHS.OIT.FCJ ADD BO/CHS COMMENTS
EXIT	;EXIT PROGRAM
MEDHX	;EP;DISPLAY MED HX COMMENTS IF ANY AND ADD NEW COMMENTS TO SEC REF
MAIN	;
GETREF	;Screens out closed Referrals
DELETE	; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH

External References

Name	Field # of Occurrence
$$CTR^BMC	MEDHX+4, MEDHX+5
HDR^BMC	START+2
PARMCHK^BMC	START+1
PAUSE^BMC	EDIT+6, DELETE+3, RECORD+2
ADDVREF^BMCADD	MAIN+8
CALLIN^BMCADD	CALLIN+5
COMMENTS^BMCADD	MEDCOM+5
DSPV^BMCADDP	MAIN+6
DDS^BMCFMC	EDIT+3
DIC^BMCFMC	GETREF+9
^BMCKILL	EXIT+1
80^BMCMOD	BUSINESS+1
ASK^BMCMOD	SBCOM+4
DISPCOM^BMCMOD1	MEDHX+7
FILE^DICN	ADD+22
^DIK	DELETE+2
^DIR	CALLIN+3
^XBFMK	ADD+11, ADD+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETREF+2
Function Call: WRITE	Prompt: !,"You must enter a Vendor or IHS Facility, depending on the Referral type.",! Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"INCOMPLETE SECONDARY REFERRAL...BEING DELETED!",!! Line Location: DELETE+1
Function Call: WRITE	Prompt: @IOF,!,$$CTR^BMC("MEDICAL COMMENTS FROM PRIMARY REFERRAL",80) Line Location: MEDHX+4
Function Call: WRITE	Prompt: !,$$CTR^BMC("REFERRAL: "_BMCRNUMB_" PATIENT: "_BMCREC("PAT NAME"),80),! Line Location: MEDHX+5
Function Call: WRITE	Prompt: "-" Line Location: MEDHX+6
Function Call: WRITE	Prompt: !,"THERE ARE NOT ANY MEDICAL COMMENTS FROM PRIMARY REFERRAL TO DISPLAY...",! Line Location: MEDHX+8
Function Call: WRITE	Prompt: ! Line Location: MEDHX+9
Function Call: WRITE	Prompt: "-" Line Location: MEDHX+9
Function Call: WRITE	Prompt: !,"Enter Comments for Secondary Referral..." Line Location: MEDHX+10
Function Call: WRITE	Prompt: ! Line Location: MEDCOM+1
Function Call: WRITE	Prompt: !!,"Secondary Referral has been completed, "_BMCRNUMB_BMCSUF,! Line Location: RECORD+1
Routine Call	DIR Line Location: CALLIN+3

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCPARM - [#90001.31]	ADD+21
^BMCREF - [#90001]	GETREF+12, ADD+8, ADD+21, EDIT+5, MEDHX+3, RECORD+3
^BMCREF("S"	ADD+2, ADD+3
^DISV(	RECORD+3*

Name	Line Occurrences
ADD	MAIN+5
CALLIN	MAIN+4
DELETE	MAIN+6, MAIN+7, EDIT+4
EDIT	MAIN+7, EDIT+6
EXIT	START+3
GETREF	MAIN+2
MAIN	START+2
MEDHX	MAIN+9
SBCOM	MAIN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCATEMP	MEDHX+1, SBCOM+1
BMCCAL	MAIN+6, MAIN+8, CALLIN+1, CALLIN+5, ADD+18, EDIT+2, EXIT+3!
>> BMCCBY	ADD+19
>> BMCCDT	ADD+19
>> BMCCTYP	MEDHX+3, MEDCOM+3, SBCOM+2*
>> BMCDFN	ADD+15
>> BMCETEMP	MEDHX+1, SBCOM+1
>> BMCG	MEDHX+1, SBCOM+1
>> BMCIEN	MAIN+6, MAIN+8
BMCMODE	MAIN+1*, EXIT+3!
>> BMCNONE	MEDHX+7*, MEDHX+8
>> BMCOUTR	MAIN+6
>> BMCPARM	START+1
>> BMCPCC	MAIN+6, MAIN+8
>> BMCPROV	MAIN+1, ADD+14
>> BMCQ	START+2, MAIN+1, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7, GETREF+1, GETREF+13, CALLIN+6 , EDIT+4*
>> BMCREC	GETREF+12*, ADD+14, ADD+17, ADD+18
>> BMCREC("PAT N	AME" , MEDHX+5
BMCRIEN	MAIN+6, MAIN+8, GETREF+3, GETREF+11, GETREF+12, ADD+8, ADD+16, ADD+21, MEDHX+3, MEDCOM+4* , MEDCOM+6, SBCOM+3, SBCOM+5*, EXIT+3!
>> BMCRNUMB	ADD+2, ADD+3, ADD+15, MEDHX+5, RECORD+1
BMCRSTAT	EXIT+3!
>> BMCRTYPE	ADD+15, EDIT+5
>> BMCSRIEN	MAIN+6, MAIN+8, ADD+22, EDIT+1, EDIT+5, DELETE+2, MEDHX+3, MEDCOM+4, MEDCOM+6, SBCOM+3 , SBCOM+5*, RECORD+3
>> BMCSTRM	MAIN+1*
BMCSUF	ADD+6*, ADD+16, RECORD+1, EXIT+3!
>> BMCTERM	MEDHX+1, SBCOM+1
BMCTMP	MEDCOM+4, MEDCOM+6, SBCOM+3, SBCOM+5, EXIT+3!
BMCTMPS	MEDCOM+4, MEDCOM+6, SBCOM+3, SBCOM+5, EXIT+3!
>> BMCV	MEDHX+1, SBCOM+1
BMCVCT	ADD+8, ADD+9, ADD+16, EXIT+3!
DA	GETREF+3, EDIT+1, DELETE+2*, EXIT+2!
DD	ADD+22!
DDSCHANG	EDIT+4, EXIT+2!
>> DDSFILE	EDIT+1*
DDSPARM	EDIT+1*, EXIT+2!
DIADD	ADD+11!, ADD+22!
DIC	GETREF+5, ADD+12, EXIT+2!
DIC("A"	GETREF+5*
DIC("DR"	ADD+15, ADD+16, ADD+17, ADD+18, ADD+19, ADD+21
DIC("S"	GETREF+8*
DIC(0	GETREF+5, ADD+12
DIE	EXIT+2!
>> DIK	DELETE+2*
DILN	EXIT+2!
DINUM	ADD+11!, ADD+22!
DIR	CALLIN+3!
DIR("A"	CALLIN+2, MEDCOM+2
DIR("B"	CALLIN+2*
DIR(0	CALLIN+2*
DISYS	EXIT+2!
DIWI	EXIT+2!
DIWTC	EXIT+2!
DIWX	EXIT+2!
>> DLAYGO	ADD+12*
DO	ADD+22!
>> DR	EDIT+2*
DT	ADD+12, ADD+17
>> DUOUT	CALLIN+6
DUZ	ADD+15, RECORD+3
DUZ(2	ADD+21
>> I	MEDHX+6, MEDHX+9
IOF	MEDHX+4
U	ADD+8, ADD+14, ADD+17, ADD+18, ADD+21, EDIT+5, MEDHX+3, RECORD+3
W1	EXIT+2!
>> X	ADD+12, EDIT+5, EDIT+6
Y	GETREF+10, GETREF+11, CALLIN+5, ADD+3*, ADD+4, ADD+22, EXIT+2!
Y1	ADD+1, ADD+2, ADD+5, ADD+6, EXIT+2!
Y2	ADD+1, ADD+4, ADD+6*, ADD+8, EXIT+2!
>> Y3	ADD+1, ADD+4, ADD+5

Customize PDF page

Package: Referred Care Information System

Routine: BMCADDS

Information

Source Information

Call Graph

Call Graph Total: 11

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

Local Variables

Legend: