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

Package: Utilization Management Rollup

Routine: IBQLR3A


Information

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

;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995

Source Information

Source file <IBQLR3A.m>

Call Graph

Call Graph

Call Graph Total: 2

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Utilization Management Rollup 1 IBQLR3  

Entry Points

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

External References

Name Field # of Occurrence
DTC^IBQLPL2 PRINT+2
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)
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBQLR3" PRINT+5, PRINT+6, PRINT+9, PRINT+10, DATA+1, DATA+6, DATA+7, DATA+8, DATA+10, DATA+11

Label References

Name Line Occurrences
CHKL PLINE+2
DATA PRINT+10
DTC PLINE+4
END PRINT+6
HDR PRINT+5, PLINE+1, CHKL+1, CHKL+2
PLINE PRINT+8, DATA+5, DATA+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PLINE+8*, PLINE+9, PLINE+10*
>> DIRUT CHKL+1
>> I HDR+9*, HDR+10
IBAAD END!, DATA+4*
IBADIAG END!, DATA+2*, PLINE+5
IBADM END!, DATA+2*, PLINE+4
IBCHK END!, DATA+5*, PLINE+6
IBDATA PRINT*, END!, DATA+1*, DATA+2, DATA+3, DATA+4, DATA+5
>> IBDDT PRINT+9*, PRINT+10, DATA+1, DATA+6, DATA+7, DATA+8, DATA+10, DATA+11, 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+6*, PLINE+7
>> IBNAD DATA+4*
>> IBPAG PRINT*, PLINE+1, HDR+1*, HDR+2
>> IBPHY PRINT*, PRINT+6*, PRINT+7, PRINT+9, PRINT+10, DATA+1, DATA+6, DATA+7, DATA+8, DATA+10
, DATA+11
IBPHYAD END!, DATA+3*
IBPHYAT END!, DATA+3*
IBPHYRS END!, DATA+3*
>> IBQUIT PRINT*, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PLINE+2, CHKL+1*
IBRAD END!, DATA+4*, PLINE+5
IBRSY END!, DATA+9!*, DATA+10*, DATA+11, DATA+12
IBRSY( PLINE+8, PLINE+9
IBRSY(9999 DATA+12*
IBRSYCNT END!, DATA+11*, DATA+12
>> IBSACNT DATA+7*, PLINE+7
>> IBSNCNT DATA+8*, PLINE+7
IBSSN PRINT+10*, END!, DATA+1, DATA+6, DATA+7, DATA+8, DATA+10, DATA+11, PLINE+3, PLINE+4
>> IBSUBH PRINT+7*, PLINE+3
IBTDT END!, HDR+2
IBTRND1 END!
IBTRV END!
IBTRVD END!
IBTS END!
>> IBTYD PRINT+7
IOF HDR+1, CHKL+1
IOM HDR+2, HDR+3, HDR+11
IOSL CHKL+1, CHKL+2
IOST HDR+1, CHKL+1
>> RCNT PLINE+8*, PLINE+9, PLINE+10
>> REA PLINE+8*, PLINE+9*, PLINE+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All