Routine: IBECUS3

Information

IBECUS3 ;RLM/DVAMC - CANCEL TRICARE PHARMACY TRANSACTION ; 14-AUG-96

Source file <IBECUS3.m>

Package	Total	Call Graph
Integrated Billing	3	$$CUS^IBACUS ($$DATE,$$FILL,TASK)^IBECUS2 ($$ERRIEN,ERROR)^IBECUS22
Kernel	1	SETUP^XQALERT
Outpatient Pharmacy	1	$$TRANS^PSOCPTRI

Name	Comments	DBIA/ICR reference
EN	; Transmit a cancellation transaction. ; 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, 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)
ENQ
REJECT	; Send alert for a reject.

Name	Line Occurrences
Function Call: READ	Variable: *IBI Timeout: 0 Line Location: EN+13
Function Call: WRITE	Prompt: IBLINE(1),! Line Location: EN+53
Function Call: READ	Variable: IBRESP(1)#100 Timeout: 120 Line Location: EN+56

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	EN+32
^DPT - [#2]	EN+31
^IBA(351.5 - [#351.5]	EN+21, EN+66, EN+67!, REJECT+13

Name	Line Occurrences
ENQ	EN+17, EN+22, EN+24, EN+28, EN+33, EN+56, EN+59, EN+63
REJECT	EN+63

Name	Field # of Occurrence
>> DFN	EN+23*, EN+24, EN+27, EN+31, REJECT+9
DT	EN+27
>> IBBIN	EN+32*, EN+33, EN+48
>> IBCDFN	EN+27*, EN+28, EN+31
>> IBCDFND	EN+31*, EN+32
>> IBCHTRN	EN+20*, EN+21, EN+66, REJECT+13
>> IBCHTRND	EN+21*, EN+22, EN+23
IBDRX	EN+16!, EN+17
IBDRX("DIV"	EN+48
IBDRX("FDT"	EN+49
IBDRX("RX#"	EN+50, REJECT+8, REJECT+9
IBERR	EN+16!, EN+17, EN+22, EN+24, EN+28, EN+33, EN+56, ENQ
IBERRP	REJECT+3*, REJECT+4, REJECT+15!
>> IBI	EN+13*
>> IBKEY	EN+17, EN+67
>> IBKEYD	EN+20, EN+66, REJECT+7
>> IBLINE(1	EN+48, EN+49, EN+50*, EN+53
IBREJ	REJECT+1, REJECT+4, REJECT+5*, REJECT+8, REJECT+9, REJECT+13, REJECT+15!
>> IBRESP(1	EN+56, EN+59, EN+62, EN+63, EN+66, REJECT+2
IBRJ	REJECT+2*, REJECT+15!
IBRJA	REJECT+2*, REJECT+3, REJECT+15!
>> XQA(	REJECT+7*
>> XQA("G.IB CHA	MP RX REJ" , REJECT+7*
>> XQADATA	REJECT+9*
>> XQAMSG	REJECT+8*
>> XQAROU	REJECT+9*