Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls