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

IBINI01O.m

Go to the documentation of this file.
  1. IBINI01O ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQ(350.3) 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(350.3,0,"GL")
  1. ;;=^IBE(350.3,
  1. ;;^DIC("B","IB CHARGE REMOVE REASONS",350.3)
  1. ;;=
  1. ;;^DIC(350.3,"%D",0)
  1. ;;=^^6^6^2940214^^^^
  1. ;;^DIC(350.3,"%D",1,0)
  1. ;;=This file contains the reasons that an IB ACTION entry was cancelled.
  1. ;;^DIC(350.3,"%D",2,0)
  1. ;;=
  1. ;;^DIC(350.3,"%D",3,0)
  1. ;;=This file comes pre-loaded with data and should not be edited or added
  1. ;;^DIC(350.3,"%D",4,0)
  1. ;;=to by sites.
  1. ;;^DIC(350.3,"%D",5,0)
  1. ;;=
  1. ;;^DIC(350.3,"%D",6,0)
  1. ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
  1. ;;^DD(350.3,0)
  1. ;;=FIELD^^.03^4
  1. ;;^DD(350.3,0,"DT")
  1. ;;=2920130
  1. ;;^DD(350.3,0,"IX","B",350.3,.01)
  1. ;;=
  1. ;;^DD(350.3,0,"IX","C",350.3,.02)
  1. ;;=
  1. ;;^DD(350.3,0,"NM","IB CHARGE REMOVE REASONS")
  1. ;;=
  1. ;;^DD(350.3,0,"PT",350,.1)
  1. ;;=
  1. ;;^DD(350.3,.001,0)
  1. ;;=NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  1. ;;^DD(350.3,.001,3)
  1. ;;=Type a Number between 1 and 9999, 0 Decimal Digits
  1. ;;^DD(350.3,.001,21,0)
  1. ;;=^^1^1^2930406^^
  1. ;;^DD(350.3,.001,21,1,0)
  1. ;;=A number which is used to uniquely identify the entry in this file.
  1. ;;^DD(350.3,.001,"DT")
  1. ;;=2910419
  1. ;;^DD(350.3,.01,0)
  1. ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  1. ;;^DD(350.3,.01,1,0)
  1. ;;=^.1
  1. ;;^DD(350.3,.01,1,1,0)
  1. ;;=350.3^B
  1. ;;^DD(350.3,.01,1,1,1)
  1. ;;=S ^IBE(350.3,"B",$E(X,1,30),DA)=""
  1. ;;^DD(350.3,.01,1,1,2)
  1. ;;=K ^IBE(350.3,"B",$E(X,1,30),DA)
  1. ;;^DD(350.3,.01,3)
  1. ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1. ;;^DD(350.3,.01,21,0)
  1. ;;=^^1^1^2910305^
  1. ;;^DD(350.3,.01,21,1,0)
  1. ;;=Enter the reason that the charges are being cancelled.
  1. ;;^DD(350.3,.02,0)
  1. ;;=ABBREVIATION^F^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X
  1. ;;^DD(350.3,.02,1,0)
  1. ;;=^.1
  1. ;;^DD(350.3,.02,1,1,0)
  1. ;;=350.3^C
  1. ;;^DD(350.3,.02,1,1,1)
  1. ;;=S ^IBE(350.3,"C",$E(X,1,30),DA)=""
  1. ;;^DD(350.3,.02,1,1,2)
  1. ;;=K ^IBE(350.3,"C",$E(X,1,30),DA)
  1. ;;^DD(350.3,.02,3)
  1. ;;=Answer must be 2-10 characters in length.
  1. ;;^DD(350.3,.02,21,0)
  1. ;;=^^2^2^2910305^
  1. ;;^DD(350.3,.02,21,1,0)
  1. ;;=Enter a unique abbreviation for this cancellation reason that can
  1. ;;^DD(350.3,.02,21,2,0)
  1. ;;=assist in quick lookup of this entry.
  1. ;;^DD(350.3,.03,0)
  1. ;;=LIMIT^S^1:RX;2:OP MEANS TEST;3:GENERIC;4:OTHER;^0;3^Q
  1. ;;^DD(350.3,.03,21,0)
  1. ;;=^^2^2^2920415^^
  1. ;;^DD(350.3,.03,21,1,0)
  1. ;;=This field is a set of codes that identifies which type of charge
  1. ;;^DD(350.3,.03,21,2,0)
  1. ;;=the IB Charge Removal Reason can be used for.
  1. ;;^DD(350.3,.03,"DT")
  1. ;;=2920130