Routine: IBQLSCR

Information

IBQLSCR ;LEB/MRY - SCREEN DUMP OF RAW DATA FOR DOWNLOAD SPREADSHEET ; 12-APR-95

Source file <IBQLSCR.m>

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA FileMan	2	DT^DICRW ^DIR
Integrated Billing	1	DATE^IBOUTL
Utilization Management Rollup	1	SVCTAB^IBQLR1B

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Load Data to Excel" Line Location: DATE+4
Function Call: WRITE	Prompt: !!,"Set your Device settings to '0;255;9999'" Line Location: DATE+5
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Working...",! Line Location: DEV+3
Function Call: WRITE	Prompt: !,"ssn^adm. diag^enrollement code^adm. phy^attend. phy^resident phy^adm. date^disch. date^ward^ts^service^acute adm.?^si^is^reasons^prov. interviewed?^adm. influenced?^day^day is^day si^day d/s^day interviewed?^day reasons^ts^service" Line Location: START+1
Function Call: WRITE	Prompt: !,IBSTR Line Location: PLINE+0
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIR Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^IBQ(538 - [#538]	START+3, START+5, DATA+2, DATA+8, DATA+10

Name	Field # of Occurrence
^(1	DATA+2

Name	Field # of Occurrence
>> DIR("A"	DEV+2*
>> DIR(0	DEV+2*
DT	IBQLSCR+4
>> DTOUT	DEV+2
>> DUOUT	DEV+2
I	END!, DATA+3, DATA+5, DATA+8*, DATA+9, DATA+10, DATA+11, DATA+12
>> IBBDT	DATE+1, START+2
>> IBDDT	START+2, START+3, START+5
>> IBEDT	DATE+1, START+3
IBSTR	END!, DATA+2, DATA+3, DATA+4, DATA+5, DATA+6, DATA+7, DATA+9, DATA+13, DATA+15 , PLINE, PLINE+1*
>> IBSVC(	DATA+4, DATA+12
IBTRN	START+4, START+5, END!, DATA+2, DATA+8, DATA+10
>> IBWRAP	DATA+1, DATA+9, PLINE+1*
II	END!
IO	DEV+4
IOM	DATA+9
>> N	DATA+6, DATA+7, DATA+8*, DATA+10
POP	DEV+1, END!
X	END!, DATA+2, DATA+3, DATA+6, DATA+7, DATA+10, DATA+11, DATA+12, DATA+13
>> X1	DATA+2*, DATA+4, DATA+5