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

IBINI015.m

Go to the documentation of this file.
  1. IBINI015 ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQ(350) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^DD(350,.02,21,1,0)
  1. ;;=This is the patient that received services, care, or medications that
  1. ;;^DD(350,.02,21,2,0)
  1. ;;=caused this entry to be created. If the debtor is the patient, this
  1. ;;^DD(350,.02,21,3,0)
  1. ;;=patient is the debtor.
  1. ;;^DD(350,.02,"DT")
  1. ;;=2930728
  1. ;;^DD(350,.03,0)
  1. ;;=ACTION TYPE^P350.1'I^IBE(350.1,^0;3^Q
  1. ;;^DD(350,.03,1,0)
  1. ;;=^.1^^-1
  1. ;;^DD(350,.03,1,1,0)
  1. ;;=350^AE
  1. ;;^DD(350,.03,1,1,1)
  1. ;;=S ^IB("AE",$E(X,1,30),DA)=""
  1. ;;^DD(350,.03,1,1,2)
  1. ;;=K ^IB("AE",$E(X,1,30),DA)
  1. ;;^DD(350,.03,3)
  1. ;;=
  1. ;;^DD(350,.03,21,0)
  1. ;;=^^7^7^2940209^^^^
  1. ;;^DD(350,.03,21,1,0)
  1. ;;=This field points to an entry in the IB ACTION TYPE file. Entries in
  1. ;;^DD(350,.03,21,2,0)
  1. ;;=the IB ACTION TYPE file provide specific information about the type
  1. ;;^DD(350,.03,21,3,0)
  1. ;;=of entry that is being created and provides data necessary to AR and
  1. ;;^DD(350,.03,21,4,0)
  1. ;;=to resolve the data from the application.
  1. ;;^DD(350,.03,21,5,0)
  1. ;;=
  1. ;;^DD(350,.03,21,6,0)
  1. ;;=Applications passing data to IB determine the Action Type and pass this
  1. ;;^DD(350,.03,21,7,0)
  1. ;;=to IB.
  1. ;;^DD(350,.03,"DT")
  1. ;;=2910304
  1. ;;^DD(350,.04,0)
  1. ;;=RESULTING FROM^FI^^0;4^K:$L(X)>20!($L(X)<1) X
  1. ;;^DD(350,.04,3)
  1. ;;=Answer must be 1-20 characters in length.
  1. ;;^DD(350,.04,21,0)
  1. ;;=^^8^8^2940209^^^^
  1. ;;^DD(350,.04,21,1,0)
  1. ;;=This will be the soft-link back to the entry in any file that caused
  1. ;;^DD(350,.04,21,2,0)
  1. ;;=this transaction to be set. It will be in the format of:
  1. ;;^DD(350,.04,21,3,0)
  1. ;;=
  1. ;;^DD(350,.04,21,4,0)
  1. ;;= filenumber:entry;[node:sub-entry];[node:sub-entry]...
  1. ;;^DD(350,.04,21,5,0)
  1. ;;=
  1. ;;^DD(350,.04,21,6,0)
  1. ;;=The number of node:sub-entry pieces will depend on the level of
  1. ;;^DD(350,.04,21,7,0)
  1. ;;=multiples that cause the entry. For example, a new prescription
  1. ;;^DD(350,.04,21,8,0)
  1. ;;=might be '52:345678' but the first refill might be '52:345678;1,1'.
  1. ;;^DD(350,.04,"DT")
  1. ;;=2910304
  1. ;;^DD(350,.05,0)
  1. ;;=STATUS^P350.21'^IBE(350.21,^0;5^Q
  1. ;;^DD(350,.05,1,0)
  1. ;;=^.1
  1. ;;^DD(350,.05,1,1,0)
  1. ;;=350^AC
  1. ;;^DD(350,.05,1,1,1)
  1. ;;=S ^IB("AC",$E(X,1,30),DA)=""
  1. ;;^DD(350,.05,1,1,2)
  1. ;;=K ^IB("AC",$E(X,1,30),DA)
  1. ;;^DD(350,.05,1,2,0)
  1. ;;=^^TRIGGER^350^13
  1. ;;^DD(350,.05,1,2,1)
  1. ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5) X ^DD(350,.05,1,2,1.4)
  1. ;;^DD(350,.05,1,2,1.4)
  1. ;;=S DIH=$S($D(^IB(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=350,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. ;;^DD(350,.05,1,2,2)
  1. ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5) X ^DD(350,.05,1,2,2.4)
  1. ;;^DD(350,.05,1,2,2.4)
  1. ;;=S DIH=$S($D(^IB(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=350,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. ;;^DD(350,.05,1,2,"CREATE VALUE")
  1. ;;=S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5)
  1. ;;^DD(350,.05,1,2,"DELETE VALUE")
  1. ;;=S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5)
  1. ;;^DD(350,.05,1,2,"FIELD")
  1. ;;=#13
  1. ;;^DD(350,.05,1,3,0)
  1. ;;=^^TRIGGER^350^14
  1. ;;^DD(350,.05,1,3,1)
  1. ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(350,.05,1,3,1.1) X ^DD(350,.05,1,3,1.4)
  1. ;;^DD(350,.05,1,3,1.1)
  1. ;;=S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
  1. ;;^DD(350,.05,1,3,1.4)
  1. ;;=S DIH=$S($D(^IB(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=350,DIG=14 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. ;;^DD(350,.05,1,3,2)
  1. ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(350,.05,1,3,2.1) X ^DD(350,.05,1,3,2.4)