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: IBQLR4A

Package: Utilization Management Rollup

Routine: IBQLR4A


Information

IBQLR4A ;LEB/MRY - ACUTE/NON-ACUTE REPORT ; 13-JUL-95

Source Information

Source file <IBQLR4A.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
DIAG
END
ACUTE ;
REASON ;
MDATA ;
PLINE ;
HDR ; -- print headers
CHKL ; -- check end of page
MONTH ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"<<< NO PATIENTS TO PRINT >>>"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?3,"CONTINUED STAY REVIEWS"
  • Line Location: ACUTE+2
Function Call: WRITE
  • Prompt: $P(IBDATA,","),?30
  • Line Location: PLINE+5
Function Call: WRITE
  • Prompt: $J($P(IBDATA,",",I),3)_" "
  • Line Location: PLINE+6
Function Call: WRITE
  • Prompt: !,IBTDT,?(IOM-$L(IBHDR)/2),IBHDR,?(IOM-10),"PAGE ",IBPAG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(IBHDR1)/2),IBHDR1,!,?(IOM-$L(IBHDR2)/2),IBHDR2
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKL+1
Info |  Source |  Entry Points |  Interaction Calls