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

Package: Utilization Management Rollup

Routine: IBQLR3A


Information

IBQLR3A ;LEB/MRY - PROVIDER/PATIENT REPORT ; 1-SEP-95

Source Information

Source file <IBQLR3A.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
END
DATA ;
PLINE ;
HDR ;
CHKL ; -- check end of page
DTC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"<<< NO PATIENTS TO PRINT >>>"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,IBSUBH,!
  • Line Location: PLINE+3
Function Call: WRITE
  • Prompt: !,IBSSN,?11
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: $J(IBDT,8)
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: $J(IBDT,8)
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: $J(IBDT,8)
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: ?29,IBADIAG,?37,IBENRLL,?45,$P(IBRAD," "),?52,$P(IBRAD," ",2)
  • Line Location: PLINE+5
Function Call: WRITE
  • Prompt: ?58,"ATTENDING PROVIDER CONTAINS ADMITTING PROVIDER'S 'LOS' DATA."
  • Line Location: PLINE+6
Function Call: WRITE
  • Prompt: ?58,$J(IBLOS,4),?63,$J(IBSACNT,4),?68,$J(IBSNCNT,4)
  • Line Location: PLINE+7
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: !!,?11,"ADMIT",?20,"DISCH",?37,"ENRLL",?45,"ADM. REASONS",?63,"#AC",?68,"#N-AC"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?76,"C O N T I N U E D S T A Y R E A S O N S"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"SSN",?11,"DATE",?20,"DATE",?29,"DIAG",?37,"R-D-L",?45,"1",?52,"2",?58,"#LOS",?63,"DAYS",?68,"DAYS"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?73
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKL+1
Info |  Source |  Entry Points |  Interaction Calls