Routine: IBAMTED1

Information

IBAMTED1 ;ALB/AAS - MEANS TEST EVENT DRIVER - EXEMPTION PROCESSING ; 18-DEC-92

Name	Comments	DBIA/ICR reference
EN
ENQ	; -- exit copay exemption creation
ADD	; -- adding a new test
ADDQ
AEX	; -- add exemption logic ; DO NOT USER FOR AUTOMATICS
UPL	; -- uploading an IVM-verified means test
DUP	; -- deleting an IVM-verified means test
EDT	; -- editing an old means test ; if data different attempt to add new test
EDITQ
DEL	; -- means test deleted ; find exemption for date and inactivate ; update current exemption status
DELQ
COM	; -- complete a required means test
CAT	; -- category change
STA	; -- status change
ADJ	; -- means test adjudication
ADJQ
CODE(TEST)	; -- return means test status
AUTO	; -- if auto status patient ; add auto exemption if needed
AUTOQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Determining Medication Co-Payment Exemption" Line Location: EN+20
Function Call: WRITE	Prompt: !!,"Medication Copayment Exemption Status Updated: ",$P(^IBE(354.2,+IBADDE,0),"^")," ",$$DAT1^IBOUTL($P(IBADDE,"^",2)) Line Location: ENQ+2