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

Package: Integrated Billing

Routine: IBAHVE3


Information

IBAHVE3 ;WOIFO/SS - CV EXPIRATION REPORT ;06/16/04

Source Information

Source file <IBAHVE3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 (C,NOW)^%DTC  ^DIR  
Integrated Billing 1 $$CVEDT^IBACV  
Registration 1 (DEM,KVAR)^VADPT  

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 IBACV  

Entry Points

Name Comments DBIA/ICR reference
START ;start report
REPORT ;
END ;
EXIT ; kills all vars
OPEN ;
QUEUED ;
PREPRPT ;prepare data
; IBBEGDT - begin date ,IBENDDT - end date
SETTMP(IBDFN,IBADMDT,IBWARD,IBCVDT) ;additional check and set ^TMP
PRINTRPT ;print the report
HEADER ;print the header
PRNTLINE(IBRECORD) ;print line of the report
CHNGDATE(DATE,CHNG) ;
PRNINFO(IBBEG,IBEND) ;

External References

Name Field # of Occurrence
C^%DTC CHNGDATE+2
NOW^%DTC HEADER+6
^%ZIS OPEN+1
HOME^%ZIS START+11
^%ZISC END+2
^%ZTLOAD QUEUED+2
^DIR START+3, START+7, HEADER+1
$$CVEDT^IBACV PREPRPT+12
DEM^VADPT SETTMP+8
KVAR^VADPT EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
  • Line Location: QUEUED+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?8,"***Inpatient Combat Veteran Status Expiration Report***",?IBCOLPG,"PAGE ",IBPAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?14,"Report from "
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,?15,"Run Date/Time: "
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,"Patient NAME",?IBCOL2,"SSN",?IBCOL3,"CV exp. date",?IBCOL4,"Date of admission"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: IBX,!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: $E($P(IBRECORD,"^",1),1,21)
  • Line Location: PRNTLINE+2
Function Call: WRITE
  • Prompt: ?IBCOL2,$E($P(IBRECORD,"^",2),1,11)
  • Line Location: PRNTLINE+4
Function Call: WRITE
  • Prompt: ?IBCOL3,$E($P(IBRECORD,"^",3),1,14)
  • Line Location: PRNTLINE+6
Function Call: WRITE
  • Prompt: ?IBCOL4,$E($P(IBRECORD,"^",4),1,14)
  • Line Location: PRNTLINE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTLINE+9
Function Call: WRITE
  • Prompt: !,"The following patients whose records indicate that they had CV status, were"
  • Line Location: PRNINFO+2
Function Call: WRITE
  • Prompt: !,"admitted for inpatient care with CV status, and their CV status has expired"
  • Line Location: PRNINFO+3
Function Call: WRITE
  • Prompt: !,"during their stays in the period of "
  • Line Location: PRNINFO+4
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: PRNINFO+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRNINFO+8
Routine Call
  • DIR
  • Line Location:
    • START+3
    • START+7
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • OPEN+1
Routine Call
  • %ZIS
  • Line Location:
    • START+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2, START+6, SETTMP+11, SETTMP+12, PRINTRPT+1, HEADER+4, HEADER+5, HEADER+6, PRNINFO+5, PRNINFO+7
^DGPM - [#405] PREPRPT+8, PREPRPT+9
^DGPM("AMV1" PREPRPT+5, PREPRPT+6, PREPRPT+7
^DPT - [#2] SETTMP+3
^TMP($J EXIT+2!, SETTMP+13*, PRINTRPT+6, PRINTRPT+7, PRINTRPT+8

Label References

Name Line Occurrences
$$CHNGDATE START+2
END START+11, REPORT+3
EXIT START+3, START+7, START+10, REPORT+4, END+3
HEADER PRINTRPT+3, PRNTLINE+10
OPEN START+10
PREPRPT REPORT+1
PRINTRPT REPORT+2
PRNINFO START+9
PRNTLINE PRINTRPT+8, PRINTRPT+9
QUEUED START+11
REPORT START+13
SETTMP PREPRPT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HEADER+6
%ZIS EXIT+3!, OPEN+1*
CHNG CHNGDATE~, CHNGDATE+2
DATE CHNGDATE~, CHNGDATE+2
DFN EXIT+2!, SETTMP+6~, SETTMP+7*
DIR START+3!, START+7!, HEADER+1!
DIR("A" START+3*, START+7*
DIR("B" START+3*, START+7*
DIR(0 START+3*, START+5*, HEADER+1*
DIRUT START+3, START+7, EXIT+2!
DT START+2, START+6, PRINTRPT+1
DUOUT HEADER+1!
IB405 PREPRPT+3~, PREPRPT+7*, PREPRPT+8
IBADM PRINTRPT+4~, PRINTRPT+7*, PRINTRPT+8
IBADMDAT PREPRPT+3~, PREPRPT+8*, PREPRPT+9, PREPRPT+19, PREPRPT+20
IBADMDT SETTMP~, SETTMP+11, SETTMP+13
IBADMIS SETTMP+6~, SETTMP+11*, SETTMP+13
IBBEG PRNINFO~, PRNINFO+5
IBBEGDT START+4*, START+9, EXIT+1!, PREPRPT+11, PREPRPT+16, HEADER+4
IBCOL2 EXIT+2!, PREPRPT+2*, HEADER+7, PRNTLINE+4
IBCOL3 EXIT+2!, PREPRPT+2*, HEADER+7, PRNTLINE+6
IBCOL4 EXIT+2!, PREPRPT+2*, HEADER+7, PRNTLINE+8
IBCOLPG EXIT+2!, PREPRPT+2*, HEADER+3
IBCVDT SETTMP~, SETTMP+12
IBCVEXP SETTMP+6~, SETTMP+12*, SETTMP+13
IBCVSTAT PREPRPT+3~, PREPRPT+12*, PREPRPT+13, PREPRPT+14
IBDFN PREPRPT+3~, PREPRPT+6*, PREPRPT+7, PREPRPT+12, PREPRPT+20, SETTMP~, SETTMP+3, SETTMP+7, SETTMP+13, PRINTRPT+4~
, PRINTRPT+6*, PRINTRPT+7, PRINTRPT+8
IBDISCH PREPRPT+3~, PREPRPT+9*, PREPRPT+11, PREPRPT+18
IBDONE EXIT+2!, PREPRPT+2*, PRINTRPT+6, PRINTRPT+7, PRINTRPT+9, HEADER+1*
IBDT PREPRPT+3~, PREPRPT+5*, PREPRPT+6, PREPRPT+7
IBEND PRNINFO~, PRNINFO+7
IBENDDT START+8*, START+9, EXIT+1!, PREPRPT+5, PREPRPT+17, HEADER+5
IBEXPDT PREPRPT+3~, PREPRPT+14*, PREPRPT+15, PREPRPT+16, PREPRPT+17, PREPRPT+18, PREPRPT+19, PREPRPT+20
IBOUT EXIT+1!, PRINTRPT+2*
IBPAGE EXIT+1!, PRINTRPT+2*, HEADER+1, HEADER+2, HEADER+3, HEADER+10*
IBPAT SETTMP+6~, SETTMP+9*, SETTMP+13
IBRECORD PRNTLINE~, PRNTLINE+2, PRNTLINE+4, PRNTLINE+6, PRNTLINE+8
IBSSN SETTMP+6~, SETTMP+10*, SETTMP+13
IBTOTAL PRINTRPT+4~, PRINTRPT+5*, PRINTRPT+8*, PRINTRPT+9
IBWARD SETTMP~
IBX EXIT+2!, HEADER+9*
IBXX EXIT+2!
IO START+12
IO("Q" START+11, EXIT+3!
IOF HEADER+2
IOM HEADER+9
IOSL PRNTLINE+10
IOST HEADER+1, HEADER+2
POP START+10, EXIT+1!
U PREPRPT+9, PREPRPT+13, PREPRPT+14, PREPRPT+20
VA SETTMP+5~
VADM SETTMP+5~
VADM(1 SETTMP+9
VADM(2 SETTMP+10
VAERR SETTMP+5~
X CHNGDATE+1~, CHNGDATE+3
X1 CHNGDATE+1~, CHNGDATE+2*
X2 CHNGDATE+1~, CHNGDATE+2*
Y START+1~, START+2*, START+3, START+4, START+5, START+6*, START+7, START+8, EXIT+2!, SETTMP+5~
, SETTMP+11*, SETTMP+12*, PRINTRPT+1*, HEADER+4*, HEADER+5*, HEADER+6*, PRNINFO+1~, PRNINFO+5*, PRNINFO+6, PRNINFO+7*
, PRNINFO+8
ZTDESC EXIT+3!, QUEUED+1*
ZTQUEUED END+1, EXIT+3!
ZTREQ END+1*, EXIT+3!
ZTRTN EXIT+3!, QUEUED+1*
ZTSAVE EXIT+3!
ZTSAVE("IBBEGDT" QUEUED+1*
ZTSAVE("IBENDDT" QUEUED+1*
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