Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBQLT

Package: Utilization Management Rollup

Routine: IBQLT


Information

IBQLT ;LEB/MRY - TRANSMIT DATA ; 24-APR-95

Source Information

Source file <IBQLT.m>

Call Graph

Call Graph

Call Graph Total: 5

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
TRANSMIT ;
; -- transmit data to National DataBase
START ;
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
DEC95 ;; -- per Directive ....
END

External References

Name Field # of Occurrence
^%ZTLOAD DEC95+10
DT^DICRW IBQLT+4
RANGE^IBQLT5 DEC95+6
$$SITE^VASITE DATA+10, TRANSMIT+9
^XMD TRANSMIT+4, TRANSMIT+11

Interaction Calls

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
DATA START+4
END DEC95+6, DEC95+10
TRANSMIT START+7

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All