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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBTOUA

Package: Integrated Billing

Routine: IBTOUA


Information

IBTOUA ;ALB/AAS - CLAIMS TRACKING UNSCHEDULED ADMISSION REPORT ; 27-OCT-93

Source Information

Source file <IBTOUA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 $$INSURED^IBCNS1  ($$DAT1,DATE)^IBOUTL  FIX^IBTOSA  $$EXPAND^IBTRE  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTE^XLFDT  
List Manager 1 PAUSE^VALM1  
Registration 1 PID^VADPT  
VA FileMan 1 DT^DICRW  

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
Integrated Billing 1 IBT OUTPUT UNSCHE ADM W/INS  

Entry Points

Name Comments DBIA/ICR reference
DATE ; -- select date
DEV ; -- select device, run option
DQ
END ; -- Clean up
PRINT ; -- print one billing report from ct
PR
ONE ; -- Print one patients data
HDR ; -- Print header for billing report
SET ; -- set tmp array

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+9, SET+1
DT^DICRW %
$$INSURED^IBCNS1 PRINT+9
$$DAT1^IBOUTL ONE+5, HDR+6
DATE^IBOUTL DATE+1
FIX^IBTOSA PRINT+4
$$EXPAND^IBTRE ONE+7
PID^VADPT ONE+4
PAUSE^VALM1 HDR+2
$$HTE^XLFDT PRINT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Unscheduled Admissions Report"
  • Line Location: IBTOUA+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"No Unscheduled Admission found in date range.",!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,"------------------"
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: !,"TOTAL = ",IBCNT
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,27),?30,VA("PID"),?45,$$DAT1^IBOUTL($P(IBTRND,"^",6),"2P")
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?100,$E($P($G(^DPT(DFN,.1)),"^"),1,12),?115,$E($$EXPAND^IBTRE(356,.07,$P(IBTRND,"^",7)),1,15)
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Unscheduled Admissions with Insurance",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Period beginning on ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient",?30,"Pt. ID",?45,"Adm. Date",?66,"Billable",?100,"Ward",?115,"Type"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: SET+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+6
^DPT - [#2] ONE+7, SET+2
^IBE(356.8 - [#356.8] ONE+6
^IBT(356 - [#356] PRINT+6
^TMP($J END+1!, PRINT+2!, PR+1, PR+3, SET+2*

Label References

Name Line Occurrences
END DATE+2, DEV+2, DEV+3, DQ, PR+8
HDR PR, ONE+2, SET+1
ONE PR+3
PRINT DQ
SET PRINT+9

Naked Globals

Name Field # of Occurrence
^( PR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2*, END+4!
DFN END+4!, ONE+4*, ONE+7
>> DIRUT HDR+2
DT %
I END+4!
IBBDT DATE+2, END+4!, PRINT+5, HDR+6
>> IBCNT PR+2*, PR+7, ONE+3*
IBDT END+4!, PRINT+5*, PRINT+6*, PRINT+9, PR+3*, SET+2
IBEDT DATE+2, END+4!, PRINT+6, HDR+6
IBHDT END+4!, PRINT+1*, HDR+5
>> IBNAM PR+2*, PR+3*, ONE+5
IBPAG END+4!, PRINT+1*, HDR+2, HDR+3, HDR+4*, HDR+5
IBQUIT END+4!, PRINT+1*, PRINT+6, PR+3, PR+5, ONE+1, ONE+2, HDR+1, HDR+2*, HDR+9*
, SET+1*
IBTRN END+4!, PRINT+6*, PR+3*, SET+2
IBTRND END+4!, PRINT+6*, PRINT+7, PRINT+9, PR+3*, ONE+4, ONE+5, ONE+6, ONE+7, SET+2
IO DEV+5
IO("Q" DEV+3!
IOF HDR+3
IOM HDR+5, HDR+8
IOSL ONE+2
IOST HDR+2, HDR+3
J END+4!
>> POP DEV+2
VA END+4!
VA("PID" ONE+5
X DEV+6*, END+4!
Y END+4!
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, PR+8, HDR+9, SET+1
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+9*, SET+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All