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

IBAMTED.m

Go to the documentation of this file. 
  1. IBAMTED ;ALB/CPM,GN,PHH,EG - MEANS TEST EVENT DRIVER INTERFACE ; 11/30/05 1:48pm
  1.  ;;2.0;INTEGRATED BILLING;**15,255,269,321,312,751**;21-MAR-94;Build 12
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ;IB*2*269 add IVM converted RX Copay Test update calls to a new API.
  1.  ;
  1.  ; -- do medication copayment exemption processing
  1.  ;
  1.  ;Z06 processing for RX Copay then Quit
  1.  I $D(EASZ06),DGMTYPT=2 D ^IBAMTED2 G END                    ;IB*2*269
  1.  ;Original Non-Z06 Copay processing
  1.  I '$D(EASZ06) D
  1.  . ;this routine is called from the DG namespace and IB namespace
  1.  . ;when coming in from the DG namespace, variable DGMTD and DGMTDT is
  1.  . ;used to define the means test.  When coming in
  1.  . ;from the IB namespace, variable IBDT  OR IVMMTDT is used
  1.  . I '$D(IBDT) N IBDT
  1.  . S IBDT=$S($D(IBDT):IBDT,$D(IVMMTDT):IVMMTDT,$D(DGMTDT):DGMTDT,$D(DGMTD):DGMTD,1:0)
  1.  . S IBFLAG=0 ;RTW IB*2*751
  1.  . I $P($G(^DGMT(408.31,+$$LST^DGMTCOU1(DFN,IBDT,2),0)),"^",23)=2 D IVM Q:IBFLAG=0  ;RTW IB*2*751
  1.  . I $G(^DGMT(408.31,+$$LST^DGMTCOU1(DFN,IBDT,2),"C",1,0))["Z06 MT via Edb" Q
  1.  . D ^IBAMTED1
  1.  . Q
  1.  ;
  1.  ; -- end medication copayment exemption processing
  1.  ;
  1.  Q:+$$SWSTAT^IBBAPI()                                        ;IB*2.0*312
  1.  ;
  1.  ; Quit if supported variables are unavailable.
  1.  Q:'$D(DFN)!('$D(DGMTA))!('$D(DGMTP))!('$D(DUZ))!('$D(DGMTINF))!('$D(DGMTACT))
  1.  ;
  1.  ;***
  1.  ;S XRTL=$ZU(0),XRTN="IBAMTED-1" D T0^%ZOSV ;start rt clock
  1.  ;
  1.  ; -- quit if copay exemption test
  1.  I $P(DGMTA,"^",19)=2!($P(DGMTP,"^",19)=2) G END
  1.  ;
  1.  ; Quit if test is a Category change resulting from a deleted test.
  1.  I DGMTA]"",DGMTP]"",+DGMTA'=+DGMTP G END ; on-line deletion
  1.  I DGMTA]"",DGMTP]"",DGMTACT="DEL" G END ; IVM 'delete' transmission
  1.  ;
  1.  ; Process Means Tests uploaded by IVM.
  1.  I DGMTACT="UPL"!(DGMTACT="DUP") D  G END
  1.  .;
  1.  .; - if IVM is uploading a verified test, create new MT charges
  1.  .I $P(DGMTP,"^",23)<2,$P(DGMTA,"^",23)>1,'$$CK^DGMTUB(DGMTP),$$CK^DGMTUB(DGMTA) D ^IBAMTV Q
  1.  .;
  1.  .; - if IVM is sending a 'Delete' transmission, cancel previous charges
  1.  .I $P(DGMTP,"^",23)>1,$P(DGMTA,"^",23)<2,$$CK^DGMTUB(DGMTP),'$$CK^DGMTUB(DGMTA) D CANC^IBAMTV
  1.  ;
  1.  ; Quit if the most current Means Test was not altered.
  1.  S IBMT=$S(DGMTA="":DGMTP,1:DGMTA)
  1.  S X=$$LST^DGMTU(DFN) I X,$P(X,"^",2)>+IBMT G END
  1.  ;
  1.  ; Quit if an added or deleted test is a Required test.
  1.  I (DGMTA=""!(DGMTP="")),$P(IBMT,"^",3)=1 G END
  1.  ;
  1.  ; Determine the billable status before and after the transaction.
  1.  D NOW^%DTC S IBCATCA=$$BIL^DGMTUB(DFN,%)
  1.  S IBCATCP=$S(DGMTP="":$$ADD,DGMTA="":$$CK^DGMTUB(DGMTP),1:$$EDIT)
  1.  ;
  1.  ; Generate a bulletin if the patient's billing status has changed.
  1.  I (IBCATCP&('IBCATCA))!('IBCATCP&(IBCATCA)) D
  1.  .S IBEFDT=$S($P(IBMT,"^",7):+$P(IBMT,"^",7),1:+IBMT)
  1.  .I IBCATCP,'IBCATCA,'$$CHG^IBAMTEDU(IBEFDT) Q  ; hasn't been billed since going c->a
  1.  .I 'IBCATCP,IBCATCA,'$$EP^IBAMTEDU(IBEFDT) Q  ; hasn't been treated since going a->c
  1.  .D MT^IBAMTBU2 ; create bulletin
  1.  ;
  1. END K IBARR,IBCANCEL,IBCATCA,IBCATCP,IBDIQ,IBDUZ,IBEFDT,IBMT,IBI,IBC,IBPT,IBT
  1.  K DIC,DIQ,DR,DA,VA,VAERR,VAEL,X,X1,X2,XMDUZ,XMTEXT,XMY,XMSUB,IBFLAG,IBMTYR,IBTHSH
  1.  ;***
  1.  ;I $D(XRT0) S:'$D(XRTN) XRTN="IBAMTED" D T1^%ZOSV ;stop rt clock
  1.  Q
  1.  ;
  1.  ;
  1. ADD() ; Determine the billable status before adding a Means Test.
  1.  S X1=$S($P(DGMTA,"^",3)=3:+DGMTA,1:+$P(DGMTA,"^",7)\1),X2=-1 D C^%DTC
  1.  Q $$BIL^DGMTUB(DFN,X)
  1.  ;
  1.  ;
  1. EDIT() ; Determine the billable status before editing a Means Test.
  1.  I $P(DGMTP,"^",3)'=1 Q $$CK^DGMTUB(DGMTP)
  1.  S X1=+DGMTP,X2=-1 D C^%DTC Q $$BIL^DGMTUB(DFN,X)
  1. IVM ;If last MEANS TEST was an IVM check RX THRESHOLDS 354.3 against the current year means test. 
  1.  ;need to add code for dependent status of the patient and use that number. IB*2.0*751
  1.  ;rx thresholds are based on number of dependents.
  1.  S IBMTYR=$O(^DG(43,1,"MT",""),-1)
  1.  S IBTHSH=$P(^DG(43,1,"MT",IBMTYR,0),U,2)
  1.  I $D(DGMTA),$P(DGMTA,U,4)<IBTHSH S IBFLAG=1
  1.  D ^IBAMTED1
  1.  Q