Routine: BMCSPD

Information

BMCSPD ; IHS/PHXAO/TMJ - display site parameters ; [ 09/27/2006 2:16 PM ]

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ($$VAL,ENP,ENPM)^XBDIQ1 VIEWR^XBLM
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Referred Care Information System	1	BMC DISPLAY SITE PARAMETERS

Name	Comments	DBIA/ICR reference
SSTXT	; SITE-SPECIFIC TEXT FOR REFERRAL LETTERS
HCPB	;
BROWSE	;
TPL	;
EN1	;
XIT	;EP
FF	;
PRINT	;
HCDB	;
CP	;
PROC	;
EP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Display Referred Care Information System (RCIS) Site Parameters",! Line Location: EN1+2
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: EN1+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PRINT+3
Function Call: WRITE	Prompt: !?30,"RCIS SITE PARAMETERS",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !?(37-$S(L>37:37,1:L)),$P(BMCX(X),U),":",?40,$P(BMCX(X),U,2) Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"HELP PROMPT FOR PRIORITY SYSTEM:" Line Location: PRINT+15
Function Call: WRITE	Prompt: !!,"HIGH COST DIAGNOSES BULLETINS: " Line Location: HCDB+2
Function Call: WRITE	Prompt: !!,"HIGH COST PROCEDURES BULLETINS: " Line Location: HCPB+2
Function Call: WRITE	Prompt: !!,"COSMETIC PROCEDURE BULLETINS: " Line Location: CP+2
Function Call: WRITE	Prompt: !!,"EXPERIMENTAL PROCEDURE BULLETINS: " Line Location: EP+2
Function Call: WRITE	Prompt: !!,"THIRD PARTY LIABILITY BULLETINS: " Line Location: TPL+2
Function Call: WRITE	Prompt: !,BMCX(BMCI1_"01",BMCI) Line Location: SSTXT+7
Function Call: WRITE	Prompt: !?40,"RCIS SITE PARAMETERS Page ",BMCPG,!! Line Location: FF+5
Routine Call	DIC Line Location: EN1+3
Routine Call	DIR Line Location: EN1+5 SSTXT+13 FF+2

FileNo	Call Tags
^BMCPARM - [#90001.31]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BMCPARM - [#90001.31]	SSTXT+4
^DD(90001.31	PRINT+4, PRINT+6, PRINT+7, PRINT+8, SSTXT+4

Name	Line Occurrences
BROWSE	EN1+7
FF	PRINT+10, PRINT+14, PRINT+17, HCDB+4, HCPB+4, CP+4, EP+4, TPL+4, SSTXT+6
XIT	EN1+3, EN1+6, EN1+7, EN1+10

Name	Field # of Occurrence
BMCI	XIT+1!, PRINT+2!, PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+16, PRINT+18, HCDB+3, HCDB+5 , HCPB+3, HCPB+5, CP+3, CP+5, EP+3, EP+5, TPL+3, TPL+5, SSTXT+5*, SSTXT+7
BMCI1	SSTXT+1~*, SSTXT+3, SSTXT+4, SSTXT+5, SSTXT+7, SSTXT+10!
BMCPARM	EN1+4*, XIT+1!, PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+13, SSTXT+3, SSTXT+4
BMCPG	XIT+1!, PRINT+1, FF+3, FF+5
BMCQUIT	EN1+1!, PRINT+9, PRINT+10, PRINT+14, PRINT+17, HCDB+4, HCPB+4, CP+4, EP+4, TPL+4 , SSTXT+6, FF+2*
BMCX	XIT+1!, PRINT+2!, PRINT+13!, HCDB+1!, HCDB+2, HCPB+1!, HCPB+2, CP+1!, CP+2, EP+1! , EP+2, TPL+1!, TPL+2, SSTXT+2!
BMCX(	PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11, HCDB+3, HCDB+5, HCPB+3, HCPB+5 , CP+3, CP+5, EP+3, EP+5, TPL+3, TPL+5, SSTXT+5, SSTXT+7
BMCX(1	PRINT+16, PRINT+18
DA	EN1+5!
DIC	EN1+3*!
DIC(0	EN1+3*
DIR	EN1+5!, SSTXT+13!, FF+2!
DIR("A"	EN1+5, SSTXT+13, FF+2*
DIR("B"	EN1+5*
DIR(0	EN1+5, SSTXT+13, FF+2*
>> DIRUT	EN1+6, SSTXT+13*, FF+2
>> DUOUT	SSTXT+13
DUZ(2	HCDB+1, HCPB+1, CP+1, EP+1, TPL+1
IOF	PRINT+3, FF+4
IOSL	PRINT+10, PRINT+14, PRINT+17, HCDB+4, HCPB+4, CP+4, EP+4, TPL+4, SSTXT+6
IOST	SSTXT+11, FF+2
>> L	PRINT+11*
U	PRINT+4, PRINT+6, PRINT+7, PRINT+8, PRINT+11, SSTXT+4
X	PRINT+9*, PRINT+11, FF+1~
>> XBNS	EN1+8*
>> XBRC	EN1+8*
>> XBRP	EN1+8*
>> XBRX	EN1+8*
Y	EN1+3, EN1+4, EN1+7, XIT+1!
>> ZTQUEUED	SSTXT+12