Routine: BSDRCLN

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;-- kill variables and quit
XHDR(ID)	;
LOOP(BSDRC,DV)	;-- loop through the HOSPITAL LOCATION file, screen on DIV and get Restricted Clinic
GETDIV()	;-- get the division the user wants
PRINT(RC,DV)	;-- print the report
MAIN	;EP - this is the main routine driver
HDR(ID)	;-- do the charge header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must select a division" Line Location: MAIN+2
Function Call: WRITE	Prompt: !,BSDTCLN,?35,BSDTTYP,?55,BSDTINS Line Location: PRINT+12
Function Call: WRITE	Prompt: @IOF Line Location: XHDR+1
Function Call: WRITE	Prompt: "Restricted Clinic List by Division: "_ID,?60,"Date: "_$$FMTE^XLFDT(DT) Line Location: XHDR+3
Function Call: WRITE	Prompt: !!,"Clinic",?35,"Clinic Code",?55,"Institution" Line Location: XHDR+4
Function Call: WRITE	Prompt: ! Line Location: XHDR+5
Function Call: WRITE	Prompt: "-" Line Location: XHDR+6
Routine Call	DIR Line Location: HDR+2
Routine Call	%ZIS Line Location: PRINT+1

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	LOOP+9
^SC - [#44]	LOOP+2, LOOP+3, LOOP+6

Name	Field # of Occurrence
BSDATA	LOOP+1~, LOOP+3*, LOOP+4
BSDCLN	LOOP+1~, LOOP+7*, LOOP+11
BSDDA	LOOP+1~, LOOP+2*, LOOP+3, LOOP+6, LOOP+7, LOOP+8, LOOP+10, LOOP+11
BSDDIV	MAIN+1*, MAIN+2, MAIN+3, MAIN+4, EOJ+2!
BSDDV	LOOP+1~, LOOP+4*, LOOP+5
BSDINS	LOOP+1~, LOOP+10*, LOOP+11
BSDRC	MAIN+3, MAIN+4, LOOP~, EOJ+2!
BSDRC(	LOOP+11*
BSDRS	LOOP+1~
BSDTCLN	PRINT+5~, PRINT+8*, PRINT+12
BSDTDA	PRINT+5~, PRINT+6*, PRINT+7
BSDTDATA	PRINT+5~, PRINT+7*, PRINT+8, PRINT+9, PRINT+10
BSDTINS	PRINT+5~, PRINT+10*, PRINT+12
BSDTTYP	PRINT+5~, PRINT+9*, PRINT+12
BSDTYP	LOOP+1~, LOOP+9*, LOOP+11
BSDTYPI	LOOP+1~, LOOP+8*, LOOP+9
>> DIC("A"	GETDIV+1*
>> DIR(0	HDR+2*
DIRUT	PRINT+6, PRINT+11, HDR+1!, HDR+4*
DIV	GETDIV+3!, GETDIV+4
DT	XHDR+3
DV	LOOP~, LOOP+5, PRINT~, PRINT+4, PRINT+11
>> I	XHDR+6*
ID	HDR~, HDR+3, XHDR~, XHDR+2*, XHDR+3
IO	PRINT+3
IOF	XHDR+1
IOSL	PRINT+11
IOST	HDR+2
>> POP	PRINT+2
RC	PRINT~
RC(	PRINT+6, PRINT+7
U	LOOP+4, LOOP+6, LOOP+9, LOOP+11, PRINT+8, PRINT+9, PRINT+10
>> Y	GETDIV+3, HDR+3