Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABSPOSBW

ABSPOSBW.m

Go to the documentation of this file. 
  1. ABSPOSBW ; IHS/FCS/DRS - Billing - FSI/ILC A/R v1,2;       
  1.  ;;1.0;PHARMACY POINT OF SALE;**48**;JUN 21, 2001;Build 38
  1.  Q
  1.  ; Billing interface for FSI/ILC Accounts Receivable,
  1.  ; Versions 1 and 2
  1.  ;
  1.  ; Called at tag POST from ABSPOSBB
  1.  ; with the variable ABSP57 pointing to 9002313.57, the transaction
  1.  ; You must return a value - that value is stuffed into field .15
  1.  ; of the transaction record
  1.  ; and indexed by ^ABSPTL("AR",value,IEN57)
  1.  ;
  1.  ; Many useful utilities are available in ABSPOS57
  1.  ; need to write
  1.  ;     DO LOG57^ABSPOS57(text) puts text into the claim's log file
  1.  ; 
  1.  ; Note about this billing interface and interlocks:
  1.  ;    We have another background job to actually post charges.
  1.  ;    A job is scheduled for each visit - to run ABSPOSBX.
  1.  ;    That posting job uses the same interlock as the main
  1.  ;    background billing.  So you can freely use the "AR" index
  1.  ;    and everything else.
  1.  ;
  1. POST() ; EP - from ABSPOSBB
  1.  N IEN57 S IEN57=ABSP57 ; now you can $$label^ABSPOS57
  1.  N PREV57 D
  1.  . S X=$P(^ABSPTL(IEN57,0),U) ; 1234567.000rt
  1.  . S PREV57=$O(^ABSPTL("B",X,IEN57),-1)
  1.  N RESULT,RETVAL S RETVAL=""
  1.  S RESULT=$$GET1^DIQ(9002313.57,ABSP57_",","RESULT WITH REVERSAL")
  1.  ;
  1.  ; RESULT can by E PAYABLE, E REJECTED, E CAPTURED, PAPER
  1.  ; or E REVERSAL ACCEPTED or PAPER REVERSAL
  1.  ; or E REVERSAL REJECTED
  1.  ;
  1.  N VISITIEN S VISITIEN=$$VISITIEN^ABSPOS57
  1.  ;
  1.  ; We want to group all the claims for a single visit and
  1.  ; then post them together on a single bill (well, more bills if
  1.  ; some of the claims have different insurers.  One per insurer.)
  1.  ;
  1.  ; So for this phase, we simply schedule a billing job for the visit
  1.  ; for some time from now (30 minutes?).  At that time, we check to
  1.  ; see if all the collected charges for the visit are at least
  1.  ; (15 minutes?) old.  If so, we post.  If not, we reschedule for later.
  1.  ;
  1.  ; But reversals, we handle those right now:
  1.  ; The original charge might not yet be posted!  It could still be
  1.  ;    in ^ABSPOS("AR",KEY15, waiting.
  1.  ;
  1.  I RESULT["REVERSAL" D
  1.  . D REVERSAL ; IEN57 is a reversal
  1.  E  D  ; it's a charge to be posted
  1.  . S RETVAL=$$KEY15 ; make sure posting job is scheduled
  1.  Q RETVAL  ; caller stuffs this into 9002313.57 field #.15 for us
  1.  ;
  1.  ;
  1.  ;
  1.  ; ^ABSPTL("AR",key,ien57)
  1.  ; What to use for the key?
  1.  ; For claims awaiting posting,
  1.  ;   visitien/insien/time scheduled to post
  1.  ; For claims already posted:
  1.  ;   "" (so it disappears from the index)
  1.  ;   or ?1N.N (another pointer to where it was posted
  1.  ;
  1.  ; So to get the vis/ins/time ones, 
  1.  ;   $O(^ABSPTL("AR"," "))
  1.  ;
  1. KEY15() N X,Y S X=$$VISITIEN^ABSPOS57_"/"_$$INSIEN^ABSPOS57_"/"
  1.  S Y=$O(^ABSPTL("AR",X))
  1.  I $P(Y,"/",1,2)=$P(X,"/",1,2) D  ; posting already scheduled
  1.  . S $P(X,"/",3)=$P(Y,"/",3) ; so take the same posting time
  1.  E  D  ; posting not yet scheduled for this visit+insurer
  1.  . S $P(X,"/",3)=$$TADDNOWS^ABSPOSUD($$DELAY1)
  1.  . D SCHED(X)
  1.  Q X
  1. SCHED(KEY15) ; schedule posting job for transaction as directed by X
  1.  ; X = format of $$KEY15, above
  1.  S KEY15=$P(KEY15,"/",1,3)
  1.  N ZTDTH,ZTSAVE,ZTIO
  1.  S ZTDTH=$P(KEY15,"/",3)
  1.  S ZTRTN="EN^ABSPOSBX",ZTIO="",ZTSAVE("KEY15")=""
  1.  D ^%ZTLOAD
  1.  Q
  1. REVERSAL ; IEN57 is a reversal - handle it and set RETVAL
  1.  S RETVAL="" ; until we say otherwise
  1.  D LOG("Transaction "_IEN57_" is a reversal; previous transaction was "_PREV57_".")
  1.  I 'PREV57 D  Q
  1.  . D LOG("  ??No record of any previous charge.  Nothing done.")
  1.  ;
  1.  ; Find where the previous charge was posted.
  1.  ;
  1.  N PCNDFN S PCNDFN=$P(^ABSPTL(PREV57,0),U,3)
  1.  ;
  1.  ; Perhaps it wasn't posted yet.  This would be typical if the 
  1.  ; reversal is made immediately after the original charge is posted.
  1.  ; The original charge is probably in Taskman now waiting for other
  1.  ; charges that might come along for the same visit.  At that time,
  1.  ; the reversal will be detected and posting of charge will be skipped.
  1.  ;
  1.  I 'PCNDFN D  Q  ; it wasn't posted the first time around
  1.  . D LOG^ABSPOSL("Original charge not posted; no adjustment needed.")
  1.  ;
  1.  ; The original charge was posted, to PCNDFN.
  1.  ; Put an adjustment and make a comment on the account.
  1.  ;
  1.  N WHEN S WHEN=$$GET1^DIQ(9002313.57,IEN57_",",7,"I")_"0000"
  1.  S WHEN=$E(WHEN,4,5)_"/"_$E(WHEN,6,7)_"/"_$E(WHEN,2,3)
  1.  S WHEN=WHEN_"@"_$E(WHEN,9,10)_":"_$E(WHEN,11,12)
  1.  ;
  1.  ; if failed reversal, make a comment
  1.  ;
  1.  I RESULT'="E REVERSAL ACCEPTED",RESULT'="PAPER REVERSAL" D  Q
  1.  . D COMMENT^ABSPOSBF(PCNDFN,"CLAIM REVERSED on "_WHEN)
  1.  . D LOG^ABSPOSL("Comment made on `"_PCNDFN_" for "_RESULT)
  1.  ;
  1.  ; if successful reversal, write off the old charge
  1.  ;
  1.  N AMTOLD S AMTOLD=$P(^ABSPTL(PREV57,5),U,5) ; original charge amount
  1.  N REASON S REASON=RESULT_" on "_WHEN
  1.  D ADJUST^ABSPOSBX(PCNDFN,AMTOLD,REASON)
  1.  N FDA,MSG ; mark transaction as having been posted to A/R.
  1.  S FDA(9002313.57,IEN57_",",2)=PCNDFN
  1.  S FDA(9002313.57,IEN57_",",.15)=PCNDFN
  1. R88 D FILE^DIE(,"FDA","MSG")
  1.  I $D(MSG) D LOG^ABSPOSL2("R88^ABSPOSBW",.MSG) ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.
  1.  I $D(MSG) D  G R88:$$IMPOSS^ABSPOSUE("FM","TRI","FILE^DIE failed",.MSG,"REVERSAL",$T(+0))
  1.  . D LOGARRAY^ABSPOSL("FDA")
  1.  . D LOGARRAY^ABSPOSL("MSG")
  1.  Q
  1.  ;
  1.  ;
  1. DELAY1() Q 30*60 ; how many seconds to wait before posting
  1. DELAY2() ;EP -
  1.  Q $$DELAY1/2 ; how many seconds quiet time before it's safe to post
  1.  ;  (that is, if any additional charges in the past xxx time,
  1.  ;   reschedule the posting for later)
  1. LOG(X) D LOG^ABSPOSL(X) Q