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

Package: Integrated Billing

Routine: IBOBCR6


Information

IBOBCR6 ;ALB/RJS-CONTINUOUS PATIENT PRINTOUT;2/20/92

Source Information

Source file <IBOBCR6.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 $$LST^DGMTU  (2,KVAR)^VADPT  
VA FileMan 1 ^DIR  

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 IB OUTPUT CONTINUOUS PATIENTS  

Entry Points

Name Comments DBIA/ICR reference
START ;
LOOP ;
END ;
EXIT ;
QUEUED ;
BUILDARY ;
MEANS ;
LOADARY ;***IN LOADARY FUNCTION THESE ARE THE VALUES***
OUTPUT ;
LINE ;
OPEN ;
HEADING ;

External References

Name Field # of Occurrence
^%ZIS OPEN+1
HOME^%ZIS START+5
^%ZISC END+4
^%ZTLOAD QUEUED+2
$$LST^DGMTU MEANS+2
^DIR HEADING+2
2^VADPT BUILDARY+4
KVAR^VADPT EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Margin width of this report is 132 columns",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
  • Line Location: QUEUED+2
Function Call: WRITE
  • Prompt: $E(IBNAME,1,20),?IBCOL2
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",2),1,11),?IBCOL3
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",3),1,14),?IBCOL4
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",6),1,8),?IBCOL5
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: $P(IBRECORD,"^",5),?IBCOL6
  • Line Location: LINE+11
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",4),1,30),!
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !,Y,?IBCOL2,"***Patients Continuously Hospitalized Since July 1, 1986***",?IBCOL6,"PAGE ",IBPAGE
  • Line Location: HEADING+4
Function Call: WRITE
  • Prompt: !!,"Patient NAME",?IBCOL2,"Pt-Id",?IBCOL3,"Ward Location",?IBCOL4
  • Line Location: HEADING+5
Function Call: WRITE
  • Prompt: "Last Means",?IBCOL5,"Means Test",?IBCOL6,"Eligibility"
  • Line Location: HEADING+6
Function Call: WRITE
  • Prompt: !,?IBCOL4,"Test Date",?IBCOL5,"Status",!
  • Line Location: HEADING+7
Function Call: WRITE
  • Prompt: IBX,!
  • Line Location: HEADING+8
Routine Call
  • %ZIS
  • Line Location:
    • OPEN+1
Routine Call
  • %ZIS
  • Line Location:
    • START+5
Routine Call
  • DIR
  • Line Location:
    • HEADING+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OUTPUT+1
^DPT - [#2] BUILDARY+3, LOADARY+8
^IBE(351.1 - [#351.1] LOOP+5
^TMP($J EXIT+2!, LOADARY+8*, OUTPUT+5, LINE+1

Label References

Name Line Occurrences
BUILDARY LOOP+5
END START+5
EXIT START+4
HEADING OUTPUT+3, LINE+14
LINE OUTPUT+5
LOADARY BUILDARY+4
MEANS BUILDARY+4
OPEN START+4
OUTPUT LOOP+6
QUEUED START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+3!, OPEN+1*
DFN EXIT+2!, BUILDARY+1*, BUILDARY+2, BUILDARY+3, MEANS+2, LOADARY+8, OUTPUT+5*, LINE+1
DIR HEADING+2!
DIR(0 HEADING+2*
DIRUT EXIT+2!
DT BUILDARY+2, OUTPUT+1
>> DUOUT HEADING+2
IBCOL2 LOOP+4*, EXIT+2!, LINE+3, HEADING+4, HEADING+5
IBCOL3 LOOP+4*, EXIT+2!, LINE+5, HEADING+5
IBCOL4 LOOP+4*, EXIT+2!, LINE+7, HEADING+5, HEADING+7
IBCOL5 LOOP+4*, EXIT+2!, LINE+9, HEADING+6, HEADING+7
IBCOL6 LOOP+4*, EXIT+2!, LINE+11, HEADING+4, HEADING+6
IBDATA LOOP+5*, EXIT+1!, BUILDARY+1
IBDATE EXIT+1!, MEANS+2*, MEANS+4*, LOADARY+8
IBDONE LOOP+4*, EXIT+2!, OUTPUT+5, HEADING+2*
IBMNSCAT EXIT+1!, MEANS+2*, MEANS+3*, LOADARY+8
IBMNSDTA EXIT+1!
IBNAME EXIT+1!, OUTPUT+4*, OUTPUT+5*, LINE+1, LINE+3
IBOUT EXIT+1!, OUTPUT+2*
IBPAGE EXIT+1!, OUTPUT+2*, HEADING+1, HEADING+3, HEADING+4, HEADING+9*
IBPATDIS EXIT+1!, BUILDARY+1*, BUILDARY+2
IBRECNR LOOP+4*, LOOP+5*, EXIT+1!
IBRECORD EXIT+2!, LINE+1*, LINE+5, LINE+7, LINE+9, LINE+11, LINE+13
IBX EXIT+2!, HEADING+8*
IBXX EXIT+2!, MEANS+2*
IO START+6
IO("Q" START+5, EXIT+3!
IOF HEADING+3
IOM HEADING+8
IOSL LINE+14
IOST HEADING+1, HEADING+3
POP START+4, EXIT+1!
U MEANS+2
>> VADM(1 LOADARY+8
>> VADM(2 LOADARY+8
>> VAEL(1 LOADARY+8
Y EXIT+2!, OUTPUT+1*, HEADING+4
ZTDESC EXIT+3!, QUEUED+1*
ZTQUEUED END+3, EXIT+3!
ZTREQ END+3*, EXIT+3!
ZTRTN EXIT+3!, QUEUED+1*
ZTSAVE EXIT+3!
ZTSK EXIT+3!, QUEUED+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All