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

IBINI09U.m

Go to the documentation of this file. 
  1. IBINI09U	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(399)  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(399,.01,1,3,1)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,.01,1,3,1.4)
  1. 	;;^DD(399,.01,1,3,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,1)=DIV,DIH=399,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399,.01,1,3,2)
  1. 	;;=Q
  1. 	;;^DD(399,.01,1,3,"CREATE CONDITION")
  1. 	;;=DATE ENTERED=""
  1. 	;;^DD(399,.01,1,3,"CREATE VALUE")
  1. 	;;=TODAY
  1. 	;;^DD(399,.01,1,3,"DELETE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(399,.01,1,3,"FIELD")
  1. 	;;=#1
  1. 	;;^DD(399,.01,1,4,0)
  1. 	;;=^^TRIGGER^399^2
  1. 	;;^DD(399,.01,1,4,1)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,"S")):^("S"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"") X ^DD(399,.01,1,4,1.4)
  1. 	;;^DD(399,.01,1,4,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399,DIV(0),"S")):^("S"),1:""),DIV=X S $P(^("S"),U,2)=DIV,DIH=399,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399,.01,1,4,2)
  1. 	;;=Q
  1. 	;;^DD(399,.01,1,4,"CREATE VALUE")
  1. 	;;=S X=$S(($D(DUZ)#2):DUZ,1:"")
  1. 	;;^DD(399,.01,1,4,"DELETE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(399,.01,1,4,"FIELD")
  1. 	;;=#2
  1. 	;;^DD(399,.01,1,5,0)
  1. 	;;=^^TRIGGER^399^164
  1. 	;;^DD(399,.01,1,5,1)
  1. 	;;~K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:"") S X=$P(Y(1),U,14)="" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"U")):^("U"),1:""
  1. 	;;=) S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(399,.01,1,5,1.1) X ^DD(399,.01,1,5,1.4)
  1. 	;;^DD(399,.01,1,5,1.1)
  1. 	;;=S X=DIV S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"")
  1. 	;;^DD(399,.01,1,5,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399,DIV(0),"U")):^("U"),1:""),DIV=X S $P(^("U"),U,14)=DIV,DIH=399,DIG=164 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399,.01,1,5,2)
  1. 	;;=Q
  1. 	;;^DD(399,.01,1,5,"%D",0)
  1. 	;;=^^2^2^2920205^
  1. 	;;^DD(399,.01,1,5,"%D",1,0)
  1. 	;;=This will automatically store the default BC/BS PROVIDER # from the
  1. 	;;^DD(399,.01,1,5,"%D",2,0)
  1. 	;;=IB SITE PARAMETERS file into the BC/BS PROVIDER # field for this bill.
  1. 	;;^DD(399,.01,1,5,"CREATE CONDITION")
  1. 	;;=#164=""
  1. 	;;^DD(399,.01,1,5,"CREATE VALUE")
  1. 	;;=S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"")
  1. 	;;^DD(399,.01,1,5,"DELETE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(399,.01,1,5,"DT")
  1. 	;;=2920205
  1. 	;;^DD(399,.01,1,5,"FIELD")
  1. 	;;=#164
  1. 	;;^DD(399,.01,1,6,0)
  1. 	;;=^^TRIGGER^399^.13
  1. 	;;^DD(399,.01,1,6,1)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(399,.01,1,6,1.4)
  1. 	;;^DD(399,.01,1,6,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399,.01,1,6,2)
  1. 	;;=Q
  1. 	;;^DD(399,.01,1,6,"CREATE VALUE")
  1. 	;;=S X=1
  1. 	;;^DD(399,.01,1,6,"DELETE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(399,.01,1,6,"FIELD")
  1. 	;;=#.13
  1. 	;;^DD(399,.01,1,7,0)
  1. 	;;=^^TRIGGER^399^.19
  1. 	;;^DD(399,.01,1,7,1)
  1. 	;;=X ^DD(399,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=$P($G(^IBE(350.9,1,1)),U,26) X ^DD(399,.01,1,7,1.4)
  1. 	;;^DD(399,.01,1,7,1.3)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+$P(Y(1),U,19),0)):"",1:$P(^(0),U,1))=""
  1. 	;;^DD(399,.01,1,7,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399,.01,1,7,2)
  1. 	;;=Q
  1. 	;;^DD(399,.01,1,7,3)
  1. 	;;=DO NOT DELETE
  1. 	;;^DD(399,.01,1,7,"%D",0)
  1. 	;;=^^2^2^2930608^
  1. 	;;^DD(399,.01,1,7,"%D",1,0)
  1. 	;;=Sets the bill's form type to the site's default form type (350.9,1.26)