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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBQLR2A

Package: Utilization Management Rollup

Routine: IBQLR2A


Information

IBQLR2A ;LEB/MRY - PATIENT REPORT ; 1-JUN-95

Source Information

Source file <IBQLR2A.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Utilization Management Rollup 2 DTC^IBQLPL2  SVCTAB^IBQLR1B  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Utilization Management Rollup 1 IBQLR2  

Entry Points

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

External References

Name Field # of Occurrence
DTC^IBQLPL2 PRINT+2
SVCTAB^IBQLR1B PRINT
PAUSE^VALM1 CHKL+1

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),?58,$J(IBLOS,4),?63,$J(IBSACNT,4),?68,$J(IBSNCNT,4)
  • Line Location: PLINE+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,!,?(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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBQLR2" PRINT+5, PRINT+6, TSTS+4, TS+5, DATA+1, DATA+5, DATA+6, DATA+7, DATA+9
DATA+10

Label References

Name Line Occurrences
CHKL PLINE+2
DATA TS+5
DTC PLINE+4
END PRINT+7
HDR PRINT+5, PLINE+1, CHKL+1, CHKL+2
PLINE TS+3, DATA+12
TS PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PLINE+6*, PLINE+7, PLINE+8*
>> DIRUT CHKL+1
>> I HDR+9*, HDR+10
IBAAD END!, DATA+4*
IBADIAG END!, DATA+2*, PLINE+5
IBADM END!, DATA+2*, PLINE+4
IBDATA PRINT*, END!, DATA+1*, DATA+2, DATA+3, DATA+4
>> IBDDT TS+4*, TS+5, DATA+1, DATA+5, DATA+6, DATA+7, DATA+9, DATA+10, PLINE+4
IBDRNG PRINT+3, END!
IBDT END!, PLINE+4*, DTC*
IBENRLL END!, DATA+2*, PLINE+5
IBHDR PRINT*, PRINT+3*, END!, HDR+2
IBHDR1 PRINT*, PRINT+3*, END!, HDR+3
>> IBHDR2 PRINT+3*, HDR+3
IBLOS END!, DATA+5*, PLINE+5
>> IBNAD DATA+4*
>> IBPAG PRINT*, PLINE+1, HDR+1*, HDR+2
IBPHYAD END!, DATA+3*
IBPHYAT END!, DATA+3*
IBPHYRS END!, DATA+3*
>> IBQUIT PRINT*, PRINT+6, TSTS+4, TS+5, PLINE+2, CHKL+1*
IBRAD END!, DATA+4*, PLINE+5
IBRSY END!, DATA+8!*, DATA+9*, DATA+10, DATA+11
IBRSY( PLINE+6, PLINE+7
IBRSY(9999 DATA+11*
IBRSYCNT END!, DATA+10*, DATA+11
>> IBSACNT DATA+6*, PLINE+5
>> IBSNCNT DATA+7*, PLINE+5
IBSSN TS+5*, END!, DATA+1, DATA+5, DATA+6, DATA+7, DATA+9, DATA+10, PLINE+3, PLINE+4
>> IBSUBH TS+1*, TS+2*, PLINE+3
>> IBSVC PRINT*, PRINT+6*, TSTS+1, TS+2, TS+4, TS+5, DATA+1, DATA+5, DATA+6
DATA+7, DATA+9, DATA+10
>> IBSVC( TS+1, TS+2
>> IBSVC("UNK" TS+1, TS+2
IBTDT END!, HDR+2
IBTRND1 END!
IBTRV END!
IBTRVD END!
IBTS PRINT*, TS*, TS+1, TS+2, TS+4, TS+5, END!, DATA+1, DATA+5, DATA+6
DATA+7, DATA+9, DATA+10
>> IBTY PRINT+3
IOF HDR+1, CHKL+1
IOM HDR+2, HDR+3, HDR+11
IOSL CHKL+1, CHKL+2
IOST HDR+1, CHKL+1
>> RCNT PLINE+6*, PLINE+7, PLINE+8
>> REA PLINE+6*, PLINE+7*, PLINE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All