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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBOCHK

Package: Integrated Billing

Routine: IBOCHK


Information

IBOCHK ;ALB/AAS - INTEGRATED BILLING - RX COPAY LINK CHECK ; 2-APR-91

Source Information

Source file <IBOCHK.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  T1^%ZOSV  ^%ZTLOAD  
Integrated Billing 2 PAUSE^IBOUTL  ($$FILE,$$IBND,$$IBNDFL,$$SUBFILE)^IBRXUTL  
VA FileMan 2 ^DIC  D^DIQ  
Registration 1 PID^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 IB OUTPUT VERIFY RX LINKS  

Entry Points

Name Comments DBIA/ICR reference
ST
TO
DEV
DQ ; -entry point from queing
CHK
HDR ;
LINE ;
END ;
IBOERR ;error messages

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS %+4
^%ZISC END+5
T1^%ZOSV END+2
^%ZTLOAD DEV+2
^DIC STTO
D^DIQ DQ+3
PAUSE^IBOUTL LINE+1
$$FILE^IBRXUTL CHK+8
$$IBND^IBRXUTL CHK+9
$$IBNDFL^IBRXUTL CHK+14, CHK+15
$$SUBFILE^IBRXUTL CHK+13
PID^VADPT LINE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?24,"Verify IB - Pharmacy Co-Pay links",!!
  • Line Location: IBOCHK+10
Function Call: WRITE
  • Prompt: *7,!!,"End must not be less than beginning number",!
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !!,"*** Margin width of this output is 132 ***"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "Verify Integrated Billing links to Pharmacy",?IOM-22,IBHDT," Page:",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Verify IB Reference Number ",IBSTART," to ",IBEND
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"REF. NO.",?12,"PATIENT",?34,"SSN",?40,"RX#",?50,"REFILL",?58,"IB LINK",?80,"CHARGE ID",?91,"TRANS",?97,"ERROR MESSAGE"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$P(IBND,"^")
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?12,$E($P(^DPT(DFN,0),"^"),1,20),?34,VA("BID"),?40,$P($P(IBND,"^",8),"-"),?50,$P($P(IBSL,";",2),":",2),?58,IBSL,?80,$P(IBND,"^",11),?91,$P(IBND,"^",12)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?97,$P($T(IBOERR+IBOERR),";;",2,99)
  • Line Location: LINE+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • %+4
Routine Call
  • DIC
  • Line Location:
    • ST
    • TO

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LINE+4
^IB - [#350] CHK+2, CHK+3, CHK+4, CHK+7
^IB("B" DQ+5

Label References

Name Line Occurrences
CHK DQ+5
END STTODEV+1, DEV+2, DQ+6
HDR DQ+3, LINE+1
LINE CHK+2, CHK+4, CHK+8, CHK+10, CHK+11, CHK+13, CHK+14, CHK+15
ST TO+1

Naked Globals

Name Field # of Occurrence
^(0 CHK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
DFN CHK+1~, CHK+7*, CHK+9, CHK+14, CHK+15, LINE+3*, LINE+4
DIC ST*!, TO*!
DIC("A" ST*, TO*
DIC("B" ST*, TO*
DIC(0 ST*, TO*
DT DQ+3
IBCNT DQ+3*, CHK*, END+4!
IBECNT DQ+3*, LINE+2*, END+4!
IBEND TO*, TO+1, DQ+5, HDR+4, END+4!
>> IBHDT DQ+3*, HDR+3
IBLINE HDR+6*!
IBN DQ+5*, CHK+2, CHK+3, CHK+4, CHK+7, END+4!
IBND CHK+2*, CHK+3*, LINE+3, LINE+4, END+4!
IBNODE CHK+1~, CHK+9*, CHK+10, CHK+11
>> IBOERR CHK+2*, CHK+4*, CHK+8*, CHK+10*, CHK+11*, CHK+13*, CHK+14*, CHK+15*
IBPAG DQ+3*, HDR+1*, HDR+2, HDR+3, END+4!
IBQUIT DQ+3*, DQ+5, LINE+1, END+4!
IBRNUM DQ+4*, DQ+5*, END+4!
IBRXN CHK+6*, CHK+8, CHK+9, CHK+13, CHK+14, CHK+15, END+4!
IBRXN1 CHK+6*, CHK+12, CHK+13, CHK+14, CHK+15, END+4!
IBSL CHK+4*, CHK+5, CHK+6, LINE+4, END+4!
IBSTART ST*, TO+1, DQ+4, HDR+4, END+4!
IHDT END+4!
IO DEV+4
IO("Q" DEV+2!
IOF %+4, HDR+2
IOM HDR+3, HDR+6
IOSL LINE+1
IOST HDR+2
>> POP DEV+1
>> VA("BID" LINE+4
>> XRT0 END+2
>> XRTN END+2*
>> Y STTODQ+3*
>> ZTDESC DEV+2*
>> ZTQUEUED END+4
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*

Marked Items

Name Field # of Occurrence
$T(IBOERR+IBOERR LINE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All