Routine: IBQLT

Package	Total	Call Graph
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
Utilization Management Rollup	1	RANGE^IBQLT5
VA FileMan	1	DT^DICRW

Entry Points

Name	Comments	DBIA/ICR reference
DEC95	;; -- per Directive ....
START	;
END
DATA	; -- build ^tmp($j,cnt,0) and ^tmp("ibql",$j,cnt,0) for mailman handler. ; IBTRND0 = entry id^site^ssn^admitting diagnosis^enroll code^ ; admitting phy^attending phy^resident phy,^admission^ ; discharge^ward^treating specialty^acute adm?^ ; IBTRND1 = si from adm^is from adm^reasons from adm^ ; provider interviewed?^adm influenced?^rollup type^service ; IBTRND2 = day^is^si^d/s^interviewed?^reasons^service
TRANSMIT	; ; -- transmit data to National DataBase

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Transmit Rollup Data",! Line Location: IBQLT+6
Function Call: WRITE	Prompt: Y_" to " Line Location: IBQLT+7
Function Call: WRITE	Prompt: Y Line Location: IBQLT+7
Function Call: WRITE	Prompt: !!,IBMSG,!,IBMSG1 Line Location: IBQLT+8
Function Call: WRITE	Prompt: ! Line Location: DEC95+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TRANSMIT+2
^IBQ(538 - [#538]	START+3, START+4, DATA+8, DATA+9, DATA+16, DATA+17
^TMP("IBQ"	END!, TRANSMIT+8, TRANSMIT+9, TRANSMIT+10*
^TMP("IBQLT"	START+2, END!, DATA+14, DATA+18*

Name	Field # of Occurrence
^(1	DATA+8, DATA+9

Name	Field # of Occurrence
DT	IBQLT+4
>> I	DEC95+8, DATA+13
IBBDT	START+1, START+2, END+1!, TRANSMIT+2
IBBDT1	END!, TRANSMIT+2*, TRANSMIT+10
IBCNT	START+1, START+2, END!, DATA+14, DATA+18
IBDDT	START+1, START+3, START+4, END!
IBEDT	START+2, START+3, END+1!, TRANSMIT+2
IBEDT1	END!, TRANSMIT+2*, TRANSMIT+10
IBMSG	END+1!
IBMSG1	END+1!
IBQUIT	DEC95+6, END+1!
IBRDT1	END+1!
IBREC	START+1, END!, DATA+9, TRANSMIT+9
IBTRN	START+4*, END!, DATA+8, DATA+9, DATA+16, DATA+17
>> IBTRND0	DATA+9, DATA+10, DATA+13*, DATA+14, DATA+17
IBTRND1	END!, DATA+9*, DATA+14
IBTRND2	END!, DATA+17*, DATA+18
INTRND0	END!
>> N	DATA+16*, DATA+17
>> XMDUZ	TRANSMIT+3, TRANSMIT+7
>> XMSUB	TRANSMIT+4, TRANSMIT+7
>> XMTEXT	TRANSMIT+4, TRANSMIT+11
>> XMY("G.IBQ RO	LLUP" , TRANSMIT+6*
>> XMY("S.IBQN S	ERVER@ISC-CHICAGO.DOMAIN.EXT" , TRANSMIT+3*
>> Y	TRANSMIT+2*
>> ZTDESC	DEC95+9*
>> ZTIO	DEC95+9*
>> ZTRTN	DEC95+9*
>> ZTSAVE(	DEC95+8*