ABSPOSBP.m

ABSPOSBP ; IHS/FCS/DRS - Billing - PAC;  

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

 ; Billing interface for PAC, Patient Accounts Component

 ;

 ; Called at tag POST from ABSPOSBB

 ; with the variable ABSP57 pointing to 9002313.57, the transaction

 ; You must return a value - that value is stuffed into field .15

 ; of the transaction record

 ; and indexed by ^ABSPTL("AR",value,IEN57)

 ; 

 ; Many useful utilities are available in ABSPOS57

 ; DO LOG^ABSPOSL(text) puts text into the billing log file

 ; DO LOG57^ABSPOS57(text) puts text into the claim's log file

 ;

POST ; EP - from ABSPOSBB

 N IEN57 S IEN57=ABSP57 ; now you can $$label^ABSPOS57

 N PREV57 S PREV57=$$PREVIOUS^ABSPOS57 ; if this prescrip prev posted

 N RESULT,RETVAL S RETVAL=""

 S RESULT=$$GET1^DIQ(9002313.57,ABSP57_",","RESULT WITH REVERSAL")

 ;

 ; RESULT can by E PAYABLE, E REJECTED, E CAPTURED, PAPER

 ; or E REVERSAL ACCEPTED or PAPER REVERSAL

 ; or E REVERSAL REJECTED

 ;

 S RETVAL=0

 Q RETVAL

ABSPOSBP  ; IHS/FCS/DRS - Billing - PAC;  

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

 +3       ; Billing interface for PAC, Patient Accounts Component

 +4       ;

 +5       ; Called at tag POST from ABSPOSBB

 +6       ; with the variable ABSP57 pointing to 9002313.57, the transaction

 +7       ; You must return a value - that value is stuffed into field .15

 +8       ; of the transaction record

 +9       ; and indexed by ^ABSPTL("AR",value,IEN57)

 +10      ; 

 +11      ; Many useful utilities are available in ABSPOS57

 +12      ; DO LOG^ABSPOSL(text) puts text into the billing log file

 +13      ; DO LOG57^ABSPOS57(text) puts text into the claim's log file

 +14      ;

POST      ; EP - from ABSPOSBB

 +1       ; now you can $$label^ABSPOS57

           NEW IEN57

           SET IEN57=ABSP57

 +2       ; if this prescrip prev posted

           NEW PREV57

           SET PREV57=$$PREVIOUS^ABSPOS57

 +3        NEW RESULT,RETVAL

           SET RETVAL=""

 +4        SET RESULT=$$GET1^DIQ(9002313.57,ABSP57_",","RESULT WITH REVERSAL")

 +5       ;

 +6       ; RESULT can by E PAYABLE, E REJECTED, E CAPTURED, PAPER

 +7       ; or E REVERSAL ACCEPTED or PAPER REVERSAL

 +8       ; or E REVERSAL REJECTED

 +9       ;

 +10       SET RETVAL=0

 +11       QUIT RETVAL