Routine: BSDRFC

Information

BSDRFC ; IHS/ANMC/LJF - RADIOLOGY PULL LIST ; [ 11/02/2004 11:45 AM ]

Source file <BSDRFC.m>

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$READ,ZIS)^BDGF ($$DEAD,$$DOD,$$HRCN,$$HRCND,$$HRCNT)^BDGF2
IHS Changes To Scheduling	1	($$DIVC,$$FAC,CLINIC)^BSDU
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; -- stuff line into array
EN	; -- main entry point for BSDRM RAD PULL LIST
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
BEG	;EP; entry point when queuing
HDG	; -- print heading on paper
PRINT	; -- print report to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
ASK	; -- ask user for division/clinic selections
EXPND	; -- expand code
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDRFC",$J,BSDN,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+2
Function Call: WRITE	Prompt: !!?20,"RADIOLOGY PULL LIST" Line Location: HDG+2
Function Call: WRITE	Prompt: VALMHDR(I) Line Location: HDG+4
Function Call: WRITE	Prompt: VALMHDR(I) Line Location: HDG+5
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80),! Line Location: HDG+7
Routine Call	VALM Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^SC("ARAD"	INIT+5, INIT+11, INIT+12, INIT+13
^TMP("BSDRFC"	INIT+2!, SET+2*, EXIT+1!, PRINT+3, PRINT+6
^TMP("BSDRFC1"	INIT+2!, INIT+18*, INIT+21, INIT+26, INIT+27, INIT+28, INIT+29, INIT+40!

Name	Field # of Occurrence
A	INIT+25~, INIT+26*, INIT+27, INIT+28, INIT+29
B	INIT+25~, INIT+27*, INIT+28, INIT+29, INIT+32, INIT+36, INIT+37
BSDLN	INIT+2*, INIT+22, INIT+35, INIT+38, INIT+40, EXIT+1!
BSDN	PRINT+1~, PRINT+2, PRINT+3, PRINT+6
BSDT	ASK+2*, HDR+3, INIT+10, EXIT+1!
>> BSDU	ASK+1
C	INIT+25~, INIT+28*, INIT+29, INIT+34
CLINIC	INIT+1~, INIT+5*, INIT+6, INIT+7, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+18
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+1~, INIT+10, INIT+11, INIT+12, INIT+13, INIT+18
DFN	INIT+1~, INIT+12*, INIT+13, INIT+14, INIT+18
END	INIT+1~, INIT+10*, INIT+11
HRCN	INIT+1~, INIT+14*, INIT+16, INIT+17, INIT+18
>> I	HDG+6*
IO	PRINT+2
IOF	HDG+2
>> IORVOFF	INIT+37
>> IORVON	INIT+37
IOSL	PRINT+5
IOST	BEG+1
L	PAD~, PAD+2
LINE	INIT+25~, INIT+32, INIT+33, INIT+34, INIT+35, INIT+37, INIT+38
N	SP~, SP+1
NODE	INIT+25~, INIT+29*, INIT+32, INIT+33
NUM	SET~, SET+1*, SET+2
POP	EXIT+1!
TERM	INIT+1~, INIT+16, INIT+17, INIT+18
U	INIT+13, INIT+18, INIT+32
VALMCNT	EN+1~, INIT+22, INIT+40
VALMHDR	HDG+1~
VALMHDR(	HDG+6
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+3*
VALMHDR(3	HDR+4*
VALMHDR(4	HDR+6*
VALMHDR(5	HDR+7*
VAUTC	INIT+7, EXIT+1!
VAUTC(	INIT+7
VAUTD	INIT+6, EXIT+1!
VAUTD(	INIT+6
X	HDR+2~, HDR+3, HELP+1