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

Package: Utilization Management Rollup

Routine: IBQLPL2


Information

IBQLPL2 ;LEB/MRY - PRINT PATIENTS QUALIFY/MISSING LIST ; 15-APR-95

Source Information

Source file <IBQLPL2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
DISCH
HDR ; -- print headers
CHKL ; -- check end of page
DTC ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"<<< NO PATIENTS TO PRINT >>>"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,SSN,?20,IBNAM,?45
  • Line Location: DISCH+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISCH+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISCH+5
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
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?45,"DISCHARGE DATE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"SSN",?20,"PATIENT NAME",?45,"FROM ACUTE CARE",?70,"ROLLUP"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKL+1
Info |  Source |  Entry Points |  Interaction Calls