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 |  Marked Items  | All
Print Page as PDF
Routine: IBTRKR3

Package: Integrated Billing

Routine: IBTRKR3


Information

IBTRKR3 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK RX FILLS ;13-AUG-93

Source Information

Source file <IBTRKR3.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Integrated Billing 12 $$CVEDT^IBACV  $$RXST^IBARXEU  $$SWSTAT^IBBAPI  ($$INSURED,ALL)^IBCNS1  $$PTCOV^IBCNSU3  $$SENS^IBNCPDR  ($$MACHK,$$ROI)^IBNCPDR4  ($$DAT1,DATE)^IBOUTL  
($$FILE,$$IBND,$$RXZERO,$$SUBFILE,ZERO)^IBRXUTL  $$ICD^IBRXUTL1  BULL^IBTRKR31  REFILL^IBTUTL1  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Outpatient Pharmacy 2 RX^PSO52API  REF^PSO52EX  
Registration 2 $$AUTOINFO^DGMTCOU1  ELIG^VADPT  
Scheduling 1 CL^SDCO21  

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

Package Total Caller Graph
Integrated Billing 3 IBT SUP MANUALLY QUE RX FILLS  IBTRKR  IBYHPRE  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry point to ask date range
ENQ
EN1 ; -- add rx refills to claims tracking file
EN1Q
RXCHK ; -- check and add rx
RXCHKQ
EXEMPT ; exemption reasons

External References

Name Field # of Occurrence
HOME^%ZIS ENQ+1
^%ZTLOAD EN+25
$$AUTOINFO^DGMTCOU1 RXCHK+68
$$CVEDT^IBACV RXCHK+75
$$RXST^IBARXEU RXCHK+70
$$SWSTAT^IBBAPI EN+1, EN1+2
$$INSURED^IBCNS1 RXCHK+16
ALL^IBCNS1 RXCHK+88
$$PTCOV^IBCNSU3 RXCHK+41
$$SENS^IBNCPDR RXCHK+86
$$MACHK^IBNCPDR4 RXCHK+92
$$ROI^IBNCPDR4 RXCHK+93
$$DAT1^IBOUTL EN+18, EN1+11
DATE^IBOUTL EN+6
$$FILE^IBRXUTL RXCHK+7, RXCHK+8, RXCHK+22, RXCHK+26, RXCHK+27
$$IBND^IBRXUTL RXCHK+50
$$RXZERO^IBRXUTL RXCHK+8
$$SUBFILE^IBRXUTL RXCHK+23, RXCHK+30, RXCHK+31
ZERO^IBRXUTL RXCHK+35
$$ICD^IBRXUTL1 RXCHK+54
BULL^IBTRKR31 EN1+29
REFILL^IBTUTL1 RXCHK+99
RX^PSO52API RXCHK+48
REF^PSO52EX EN1+19
CL^SDCO21 RXCHK+51
ELIG^VADPT RXCHK+59
$$FMADD^XLFDT %+2, %+3, EN+20, EN1+11
$$FMTE^XLFDT EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"I'm sorry, Tracking of Prescription Refills is currently turned off."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!!,"Select the Date Range of Rx Refills to Add to Claims Tracking.",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Begin date is before Claims Tracking Start Date, changed to ",$$DAT1^IBOUTL(IBTSBDT)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"I'll automatically change the end date to 3 days prior to the date queued to run."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!!,"I'm going to automatically queue this off and send you a"
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"mail message when complete.",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"Request Queued"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: "."
  • Line Location: RXCHK+5
Function Call: WRITE
  • Prompt: "+"
  • Line Location: RXCHK+99
Routine Call
  • %ZIS
  • Line Location:
    • ENQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.9 - [#350.9] EN+4, EN+16, EN1+6
^IBE(356.6 - [#356.6] EN1+13
^IBT(356 - [#356] RXCHK+13
^TMP($J EN1+21, EN1+24, EN1+26, EN1+27!, RXCHK+36, RXCHK+37!, RXCHK+49, RXCHK+53, RXCHK+77!

Label References

Name Line Occurrences
EN EN+11
EN1 %+4
EN1Q EN1+7
ENQ EN+4, EN+7
RXCHK EN1+26
RXCHKQ RXCHK+4, RXCHK+13, RXCHK+16, RXCHK+19, RXCHK+22, RXCHK+23, RXCHK+26, RXCHK+27, RXCHK+30, RXCHK+31
RXCHK+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN1+1~, RXCHK+7*, RXCHK+8, RXCHK+16, RXCHK+41, RXCHK+48, RXCHK+49, RXCHK+50, RXCHK+51, RXCHK+53
RXCHK+54, RXCHK+68, RXCHK+70, RXCHK+75, RXCHK+88, RXCHK+93, RXCHK+99, RXCHK+103!
DT %+2, %+3, EN+20, EN1+11, RXCHK+4
I EN1+1~
IBANY RXCHK+41, RXCHK+103!
IBARR RXCHK+51, RXCHK+104!
IBARR( RXCHK+54
IBAUTRET RXCHK+68~*
IBBDT EN+2~, EN+7, EN+8
IBCNT EN1+1~, EN1+16*, RXCHK+2*
IBCNT1 EN1+1~, EN1+16*, RXCHK+102*
IBCNT2 EN1+1~, EN1+16*, RXCHK+101*
IBCOPAY EN1+3~, RXCHK+47*, RXCHK+50*, RXCHK+65, RXCHK+74
IBDATA EN1+1~
IBDEA RXCHK+36*, RXCHK+38, RXCHK+103!
IBDRUG RXCHK+34*, RXCHK+35, RXCHK+36, RXCHK+86, RXCHK+93, RXCHK+103!
IBDT EN1+1~, EN1+17*, EN1+19, EN1+20*, EN1+21*, EN1+23, EN1+24, EN1+26, RXCHK+4, RXCHK+16
RXCHK+41, RXCHK+51, RXCHK+75, RXCHK+88, RXCHK+92, RXCHK+93, RXCHK+99
IBEDT EN+2~, EN+7, EN+8
IBFILL EN1+1~, EN1+25*, EN1+26*, RXCHK+13, RXCHK+22, RXCHK+23, RXCHK+26, RXCHK+27, RXCHK+30, RXCHK+31
RXCHK+99
IBFLG RXCHK+87~, RXCHK+92*, RXCHK+93*, RXCHK+94, RXCHK+95, RXCHK+96
IBICD EN1+3~, RXCHK+47*, RXCHK+49*, RXCHK+51, RXCHK+58
IBINS RXCHK+87~
IBINS( RXCHK+93
IBINS("S" RXCHK+89
IBINSP RXCHK+87~, RXCHK+89*, RXCHK+93
IBM RXCHK+52*, RXCHK+53*, RXCHK+54, RXCHK+104!
IBMESS EN+2~, EN1+11*
IBND RXCHK+1~
IBP RXCHK+54*, RXCHK+55, RXCHK+104!
IBPOWUNV RXCHK+68~*, RXCHK+69
IBRMARK RXCHK+41*, RXCHK+51, RXCHK+53, RXCHK+54, RXCHK+55*, RXCHK+58, RXCHK+66*, RXCHK+69*, RXCHK+70*, RXCHK+74
RXCHK+75*, RXCHK+92*, RXCHK+94*, RXCHK+99, RXCHK+101, RXCHK+102, RXCHK+103!
IBRXDATA RXCHK+8*, RXCHK+34, RXCHK+70, RXCHK+103!
IBRXN EN1+1~, EN1+22*, EN1+24*, EN1+26, RXCHK+7, RXCHK+8, RXCHK+13, RXCHK+22, RXCHK+23, RXCHK+26
RXCHK+27, RXCHK+30, RXCHK+31, RXCHK+48, RXCHK+49, RXCHK+50, RXCHK+53, RXCHK+54, RXCHK+99
IBRXSTAT RXCHK+8*, RXCHK+19, RXCHK+103!
>> IBRXTYP EN1+13*, RXCHK+99
IBSCROI RXCHK+82~, RXCHK+92*, RXCHK+95*, RXCHK+96*, RXCHK+99
IBSWINFO EN+1~*, EN+11, EN+13, EN1+2~*, EN1+23
IBTALK EN+2~, EN+3*, EN1+29, RXCHK+5, RXCHK+99
IBTRKR EN+16*, EN+18, EN1+1~, EN1+6*, EN1+7, EN1+8, RXCHK+16
IBTSBDT %+1~, %+2*, EN+2~, EN+8*, EN+11, EN+18*, EN1+8*, EN1+17
IBTSEDT %+1~, %+3*, EN+2~, EN+8*, EN+11, EN+20, EN1+11*, EN1+19, EN1+21
IBZ RXCHK+54*, RXCHK+55, RXCHK+104!
J EN1+1~
LIST RXCHK+1~, RXCHK+45*, RXCHK+48, RXCHK+49, RXCHK+53, RXCHK+54, RXCHK+77
LIST1 EN1+1~, EN1+18*, EN1+19, EN1+21, EN1+24, EN1+26, EN1+27
NODE RXCHK+1~, RXCHK+46*, RXCHK+48
U RXCHK+68, RXCHK+70
VA RXCHK+103!
VAEL RXCHK+103!
VAEL(3 RXCHK+65, RXCHK+66, RXCHK+69, RXCHK+74
X EN1+1~, RXCHK+103!
Y EN1+1~, RXCHK+103!
ZTDESC EN+24*, ENQ!
ZTIO EN+24*, ENQ!
>> ZTQUEUED EN1QRXCHK+5, RXCHK+99
>> ZTREQ EN1Q*
ZTRTN EN+24*, ENQ!
ZTSAVE ENQ!
ZTSAVE("IB*" EN+24*
ZTSK EN+25!, ENQ!

Marked Items

Name Field # of Occurrence
$T(EXEMPT+IBP RXCHK+55
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All