Routine: BMCMODS

Package	Total	Call Graph
Referred Care Information System	6	($$CTR,HDR,PARMCHK)^BMC GETSNO^BMCADD3 (DDS,DIC)^BMCFMC ^BMCKILL (17,ASK,SNO,VREF)^BMCMOD DISPCOM^BMCMOD1
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIR

Package

Total

Call Graph

($$CTR,HDR,PARMCHK)^BMC GETSNO^BMCADD3 (DDS,DIC)^BMCFMC ^BMCKILL (17,ASK,SNO,VREF)^BMCMOD DISPCOM^BMCMOD1

$$VAL^XBDIQ1

^DIR

Package	Total	Caller Graph
Referred Care Information System	2	BMC EDIT SECONDARY PROVIDER BMCAPI

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SBCOM	;ADD BO/CHS COMMENTS ;BMC4.03 8.13.07 IHS.OIT.FCJ ADD BO/CHS COMMENTS
STA	;EDIT STATUS OF REF;NEW FOR P9
EDIT	;EP;DISPLAY AND EDIT SEC REF
MEDCOM	;DISPLAY AND ADD COMMENTS FOR MED HX
START	;
EXIT	;EXIT PROGRAM
MEDHX	;EP;DISPLAY MED HX COMMENTS IF ANY AND ADD NEW COMMENTS TO SEC REF
MAIN	;
GETREF	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETREF+2
Function Call: WRITE	Prompt: @IOF,!,$$CTR^BMC("MEDICAL COMMENTS FROM PRIMARY REFERRAL",80) Line Location: MEDHX+3
Function Call: WRITE	Prompt: !,$$CTR^BMC("REFERRAL: "_$P(BMCREC,U,2)_" PATIENT: "_$$VAL^XBDIQ1(90001,BMCSRIEN,.03),80),! Line Location: MEDHX+4
Function Call: WRITE	Prompt: "-" Line Location: MEDHX+5
Function Call: WRITE	Prompt: !,"THERE ARE NOT ANY MEDICAL COMMENTS FROM PRIMARY REFERRAL TO DISPLAY...",! Line Location: MEDHX+7
Function Call: WRITE	Prompt: ! Line Location: MEDHX+8
Function Call: WRITE	Prompt: "-" Line Location: MEDHX+8
Function Call: WRITE	Prompt: @IOF,! Line Location: STA+1
Routine Call	DIR Line Location: MEDHX+9

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

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	GETREF+11, EDIT+1, EDIT+2, EDIT+3, EDIT+7

Name	Field # of Occurrence
>> BMCATEMP	MEDHX+1, MEDCOM+1, SBCOM+1*
>> BMCCTYP	MEDHX+2, MEDCOM+2, SBCOM+2*
>> BMCETEMP	MEDHX+1, MEDCOM+1, SBCOM+1*
>> BMCG	MEDHX+1, MEDCOM+1, SBCOM+1*
>> BMCIEN	MAIN+6, MAIN+7
BMCMODE	MAIN+1*, EXIT+3!
>> BMCNONE	MEDHX+6*, MEDHX+7
>> BMCPARM	START+1
>> BMCPCC	MAIN+6
>> BMCQ	START+2, MAIN+1, MAIN+3, MAIN+5, GETREF+1, GETREF+13*
>> BMCREC	GETREF+11*, MEDHX+4
BMCREF	GETREF+2*, EXIT+3!
>> BMCRIEN	MAIN+6, MAIN+7, GETREF+10, EDIT+1, MEDCOM+3, MEDCOM+5, SBCOM+3, SBCOM+5, STA+2, STA+4
BMCRSTAT	EXIT+3!
>> BMCSCOD	MAIN+6, MAIN+7
BMCSRIEN	MAIN+6, MAIN+7, GETREF+10*, GETREF+11, EDIT+1, EDIT+2, EDIT+3, EDIT+6, EDIT+7, MEDHX+4 , MEDCOM+3, SBCOM+3, STA+2, EXIT+3!
BMCSUF	EDIT+2*, EXIT+3!
>> BMCTERM	MEDHX+1, MEDCOM+1, SBCOM+1*
BMCTMPP	MEDCOM+3, MEDCOM+5, SBCOM+3, SBCOM+5, STA+2*, STA+4, EXIT+3!
>> BMCV	MEDHX+1, MEDCOM+1, SBCOM+1*
BMCVCT	EDIT+3*, EXIT+3!
BMCVST	EXIT+3!
BMCVSTP	EXIT+3!
DA	EDIT+6*, MEDHX+9!, EXIT+2!
DDSCHANG	EXIT+2!
>> DDSFILE	EDIT+6*
DDSPARM	EDIT+6*, EXIT+2!
DIC	GETREF+4*, EXIT+2!
DIC("A"	GETREF+4*
DIC("S"	GETREF+7*
DIC(0	GETREF+4*
DIE	EXIT+2!
DILN	EXIT+2!
DIR	MEDHX+9!
DIR("A"	MEDHX+9*
DIR(0	MEDHX+9*
DISYS	EXIT+2!
DIWI	EXIT+2!
DIWTC	EXIT+2!
DIWX	EXIT+2!
>> DR	EDIT+7*
>> I	MEDHX+5, MEDHX+8
IOF	MEDHX+3, STA+1
U	EDIT+1, EDIT+2, EDIT+3, EDIT+7, MEDHX+4
W1	EXIT+2!
Y	GETREF+9, GETREF+10, EXIT+2!
Y1	EXIT+2!

Information