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

IBINI0B5.m

Go to the documentation of this file. 
  1. IBINI0B5	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(399.2)  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. 	;;^DIC(399.2,0,"GL")
  1. 	;;=^DGCR(399.2,
  1. 	;;^DIC("B","REVENUE CODE",399.2)
  1. 	;;=
  1. 	;;^DIC(399.2,"%D",0)
  1. 	;;=^^4^4^2940215^^^^
  1. 	;;^DIC(399.2,"%D",1,0)
  1. 	;;=This file contains all of the Revenue Codes which may be used on the
  1. 	;;^DIC(399.2,"%D",2,0)
  1. 	;;=Third Party claim forms.
  1. 	;;^DIC(399.2,"%D",3,0)
  1. 	;;= 
  1. 	;;^DIC(399.2,"%D",4,0)
  1. 	;;=Per VHA Directive 10-93-142, this file definition should not be modified.
  1. 	;;^DD(399.2,0)
  1. 	;;=FIELD^^4^5
  1. 	;;^DD(399.2,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(399.2,0,"DT")
  1. 	;;=2931221
  1. 	;;^DD(399.2,0,"ID",1)
  1. 	;;=W "   ",$P(^(0),U,2)
  1. 	;;^DD(399.2,0,"ID",3)
  1. 	;;=W "   ",$P(^(0),U,4)
  1. 	;;^DD(399.2,0,"IX","AC",399.2,2)
  1. 	;;=
  1. 	;;^DD(399.2,0,"IX","B",399.2,.01)
  1. 	;;=
  1. 	;;^DD(399.2,0,"IX","C",399.2,1)
  1. 	;;=
  1. 	;;^DD(399.2,0,"IX","D1",399.2,2)
  1. 	;;=
  1. 	;;^DD(399.2,0,"IX","E",399.2,3)
  1. 	;;=
  1. 	;;^DD(399.2,0,"IX","F",399.2,.01)
  1. 	;;=
  1. 	;;^DD(399.2,0,"NM","REVENUE CODE")
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",36,.09)
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",36,.15)
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",350.9,1.18)
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",350.9,1.28)
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",399.042,.01)
  1. 	;;=
  1. 	;;^DD(399.2,0,"PT",399.5,.03)
  1. 	;;=
  1. 	;;^DD(399.2,.01,0)
  1. 	;;=REVENUE CODE^RFXI^^0;1^K:X[""""!($A(X)=45) X I $D(X) S:$L(X)<3 X=$E("000",1,3-$L(X))_X K:X="000" X K:$L(X)>3!($L(X)<3)!'(X?3N) X I $D(X) S DINUM=+X K X
  1. 	;;^DD(399.2,.01,1,0)
  1. 	;;=^.1^^-1
  1. 	;;^DD(399.2,.01,1,1,0)
  1. 	;;=399.2^B
  1. 	;;^DD(399.2,.01,1,1,1)
  1. 	;;=S ^DGCR(399.2,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(399.2,.01,1,1,2)
  1. 	;;=K ^DGCR(399.2,"B",$E(X,1,30),DA)
  1. 	;;^DD(399.2,.01,1,3,0)
  1. 	;;=399.2^F^MUMPS
  1. 	;;^DD(399.2,.01,1,3,1)
  1. 	;;=I +X,+X<100 S ^DGCR(399.2,"F",+X,DA)=""
  1. 	;;^DD(399.2,.01,1,3,2)
  1. 	;;=K ^DGCR(399.2,"F",+X,DA)
  1. 	;;^DD(399.2,.01,1,3,"%D",0)
  1. 	;;=^^1^1^2940214^
  1. 	;;^DD(399.2,.01,1,3,"%D",1,0)
  1. 	;;=All revenue codes less than 100.
  1. 	;;^DD(399.2,.01,3)
  1. 	;;=Enter the 3-digit numeric code associated with this entry.
  1. 	;;^DD(399.2,.01,21,0)
  1. 	;;=^^1^1^2880901^
  1. 	;;^DD(399.2,.01,21,1,0)
  1. 	;;=This is the 3-digit numeric code associated with this entry.
  1. 	;;^DD(399.2,.01,"DT")
  1. 	;;=2901003
  1. 	;;^DD(399.2,1,0)
  1. 	;;=STANDARD ABBREVIATION^FX^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X?1"*".A!(X?1A.E)) X I $D(X),$E(X)="*" S X=X_"RESERVED" K X
  1. 	;;^DD(399.2,1,1,0)
  1. 	;;=^.1
  1. 	;;^DD(399.2,1,1,1,0)
  1. 	;;=399.2^C
  1. 	;;^DD(399.2,1,1,1,1)
  1. 	;;=S ^DGCR(399.2,"C",$E(X,1,30),DA)=""
  1. 	;;^DD(399.2,1,1,1,2)
  1. 	;;=K ^DGCR(399.2,"C",$E(X,1,30),DA)
  1. 	;;^DD(399.2,1,1,2,0)
  1. 	;;=^^TRIGGER^399.2^3
  1. 	;;^DD(399.2,1,1,2,1)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=$E(X)="*" I X S X=DIV S Y(1)=$S($D(^DGCR(399.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(399.2,1,1,2,1.4)
  1. 	;;^DD(399.2,1,1,2,1.4)
  1. 	;;=S DIH=$S($D(^DGCR(399.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=399.2,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(399.2,1,1,2,2)
  1. 	;;=Q
  1. 	;;^DD(399.2,1,1,2,"CREATE CONDITION")
  1. 	;;=$E(STANDARD ABBREVIATION)="*"
  1. 	;;^DD(399.2,1,1,2,"CREATE VALUE")
  1. 	;;=STANDARD ABBREVIATION
  1. 	;;^DD(399.2,1,1,2,"DELETE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(399.2,1,1,2,"FIELD")
  1. 	;;=DESCRIPTION
  1. 	;;^DD(399.2,1,3)
  1. 	;;=Enter the 1-60 character abbreviation of the description field of this entry.
  1. 	;;^DD(399.2,1,21,0)
  1. 	;;=^^1^1^2880901^
  1. 	;;^DD(399.2,1,21,1,0)
  1. 	;;=This is the abbreviation of the description field of this entry.
  1. 	;;^DD(399.2,1,"DT")
  1. 	;;=2880831
  1. 	;;^DD(399.2,2,0)
  1. 	;;=ACTIVATE^RSX^1:ACTIVATE CODE;0:INACTIVATE CODE;^0;3^Q:'X  S %=^DGCR(399.2,+DA,0) I $E($P(%,"^",2))="*"!($E($P(%,"^",4))="*") W !?4,"Can't activate a RESERVED code...",*7 K X
  1. 	;;^DD(399.2,2,1,0)
  1. 	;;=^.1
  1. 	;;^DD(399.2,2,1,1,0)
  1. 	;;=399.2^AC^MUMPS
  1. 	;;^DD(399.2,2,1,1,1)
  1. 	;;=I $P(^DGCR(399.2,DA,0),"^",3)=1 S ^DGCR(399.2,"AC",DA)=""