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

Package: Integrated Billing

Routine: IBECUS2


Information

IBECUS2 ;DVAMC/RLM - TRICARE PHARMACY BILL TRANSACTION ;14-AUG-96

Source Information

Source file <IBECUS2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 6 $$CUS^IBACUS  ITMCHG^IBCRCC  $$FNDBI^IBCRU2  ^IBECUS21  (DUP,ERROR)^IBECUS22  $$FILE^IBRXUTL  
Kernel 1 ^%ZTLOAD  
Outpatient Pharmacy 1 $$TRANS^PSOCPTRI  
VA FileMan 1 DT^DICRW  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBECUS3  

Entry Points

Name Comments DBIA/ICR reference
EN ; Attempt to bill a prescription directly to the FI.
; Input: IBKEY -- 1 ; 2, where
; 1 = Pointer to the prescription in file #52
; 2 = Pointer to the refill in file #52.1, or
; 0 for the original fill
; IBKEYD -- 1 ^ 2 ^ 3 ^ 4 ^ 5, where
; 1 = Rx label printing device
; 2 = Pointer to the Pharmacy in file #59
; 3 = Pointer to the Pharmacy user in file #200
; 4 = Pointer to the billing transaction
; in file #351.5 (cancellations only)
; 5 = Product Selection Reason
; (Resubmissions only)
; IBCHSET -- Pointer to the Charge Set in file #363.1
; IBPRESCR -- Facility Prescriber ID number
NDC(X) ; Massage the NDC as it is stored in Pharmacy
; Input: X -- The NDC as it is stored in Pharmacy
; Output: X -- The NDC in the format 5N 1"-" 4N 1"-" 2N
LJUST(X,LEN) ; Space-fill, left justified.
DATE(X) ; Set date in the format yyyymmdd, or 8 spaces.
FILL(X,LEN) ; Zero-fill, right justified.
NDCQ
ENQ
TASK(IBDESC) ; Queue off label print, charge creation and cancellation jobs
; Input: IBDESC -- 1 ; 2 , where
; 1 = routine label to execute
; 2 = task description
STRIPL(X) ; Strip leading spaces.
OUT ; - send transaction to the commercial pos package

External References

Name Field # of Occurrence
^%ZTLOAD TASK+8
DT^DICRW EN+19
$$CUS^IBACUS EN+38
ITMCHG^IBCRCC EN+27
$$FNDBI^IBCRU2 EN+25
^IBECUS21 OUT+17
DUP^IBECUS22 OUT+14
ERROR^IBECUS22 OUT+13, OUT+23, ENQ
$$FILE^IBRXUTL EN+33
$$TRANS^PSOCPTRI EN+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(2)
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: IBLINE(I)
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: $C(3)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+4
Function Call: READ
  • Timeout: 120
  • Variable: IBRESP(1)#220
  • Line Location: OUT+7
Function Call: READ
  • Timeout: 60,IBRESP(3):60
  • Variable: IBRESP(2)#220
  • Line Location: OUT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] EN+43
^DIC(5 - [#5] EN+84
^DPT - [#2] EN+34, EN+42
^IBA(351.5 - [#351.5] OUT+29!
^IBA(351.53 - [#351.53] EN+112
^IBE(350.9 - [#350.9] EN+110, EN+115

Label References

Name Line Occurrences
$$DATE EN+66, EN+68, EN+116
$$FILL EN+56, EN+86, EN+106, EN+107, EN+108, EN+109, EN+111, EN+114, EN+117, EN+118
, NDC+12
$$LJUST EN+57, EN+78, EN+79, EN+80, EN+81, EN+82, EN+83, EN+84, EN+85, EN+115
$$NDC EN+24
ENQ EN+21, EN+26, EN+28, EN+30, EN+35, EN+39, EN+44, OUT+7, OUT+8, OUT+13
, OUT+14, OUT+20, OUT+23
NDCQ NDC+4
TASK OUT+26

Naked Globals

Name Field # of Occurrence
^( EN+34
^(0 EN+112

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+18~, EN+33*, EN+34, EN+38, EN+42
DIQUIET EN+19~*
DT EN+27, EN+38
>> I OUT+2*, TASK+7*
IBAWP EN+18~, EN+29*, EN+30, EN+114
IBAWPV EN+17!, EN+27, EN+28
IBAWPV( EN+29
IBAWPV(0 EN+29
>> IBBIN EN+43*, EN+44, EN+56
>> IBCDFN EN+38*, EN+39, EN+42
>> IBCDFND EN+42*, EN+43, EN+57, EN+67, EN+80, EN+81
>> IBCHSET EN+27
IBDESC TASK~, TASK+5, TASK+6
>> IBDPT( EN+34*, EN+82, EN+83, EN+84, EN+85, EN+86
>> IBDPT(0 EN+34*, EN+35, EN+66, EN+78, EN+79
IBDRX EN+17!, EN+21
IBDRX("#REF" EN+117
IBDRX("COMP" EN+110
IBDRX("DEA" EN+115
IBDRX("DIV" EN+56
IBDRX("FDT" EN+68
IBDRX("ISS" EN+116
IBDRX("NDC" EN+24*, EN+25, EN+111
IBDRX("QTY" EN+108, EN+114
IBDRX("RX#" EN+105*, EN+106
IBDRX("SUP" EN+109
IBERR EN+17!, EN+21*, EN+26*, EN+28*, EN+30*, EN+35*, EN+39*, EN+44*, OUT+7*, OUT+8*
, ENQ
>> IBFS EN+55*, EN+77, EN+78, EN+79, EN+80, EN+81, EN+82, EN+83, EN+84, EN+85
, EN+86, EN+121, EN+122, EN+123
>> IBGS EN+55*, EN+106
>> IBI OUT+26*
IBITEM EN+18~, EN+25*, EN+26, EN+27
>> IBKEY EN+20, OUT+29
>> IBKEYD EN+112
>> IBLINE( OUT+2
>> IBLINE(1 EN+56*, EN+57*
>> IBLINE(2 EN+66*, EN+67*, EN+68*
>> IBLINE(3 EN+77*, EN+78*, EN+79*, EN+80*, EN+81*, EN+82*, EN+83*, EN+84*, EN+85*, EN+86*
>> IBLINE(4 EN+106*, EN+107*, EN+108*, EN+109*, EN+110*, EN+111*, EN+112*, EN+115*, EN+116*, EN+117*
, EN+118*
>> IBLINE(5 EN+121*, EN+122*, EN+123*
>> IBPRESCR EN+115
>> IBREF EN+20*, EN+21, EN+107
IBRESP EN+17!
IBRESP(1 OUT+7*, OUT+10*, OUT+13, OUT+14, OUT+20, OUT+23
IBRESP(2 OUT+8*
IBRESP(3 OUT+8*
IBRX EN+18~, EN+20*, EN+21, EN+33
>> IBUAC EN+114*, EN+115, EN+118
LEN FILL~, FILL+2*, FILL+3, FILL+4, LJUST~, LJUST+2*, LJUST+3, LJUST+4, NDC+6~, NDC+9*
, NDC+11, NDC+12
PCE NDC+6~, NDC+9*, NDC+10, NDC+13
X DATE~, DATE+2, FILL~, FILL+3, LJUST~, LJUST+3, STRIPL~, STRIPL+1, NDC~, NDC+4*
, NDC+10, NDC+13*, NDCQ
>> XMCHAN OUT+12*
Y DATE+1~, DATE+2*, DATE+3, FILL+1~, FILL+3*, FILL+4*, FILL+5, LJUST+1~, LJUST+3*, LJUST+4*
, LJUST+5, STRIPL+1~*, STRIPL+2*, STRIPL+3, NDC+6~, NDC+10*, NDC+11*, NDC+12*, NDC+13
Z NDC+6~
Z( NDC+9
Z(1 NDC+8*
Z(2 NDC+8*
Z(3 NDC+8*
ZTCPU TASK+4!
>> ZTDESC TASK+6*
>> ZTDTH TASK+5*
>> ZTIO TASK+5*
>> ZTRTN TASK+5*
ZTSAVE TASK+4!
ZTSAVE( TASK+7*
ZTSK TASK+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All