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

IBINI05U.m

Go to the documentation of this file. 
  1. IBINI05U	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(356.1)  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(356.1,.24,21,2,0)
  1. 	;;=then this is the review it was copied from.
  1. 	;;^DD(356.1,.24,"DT")
  1. 	;;=2930904
  1. 	;;^DD(356.1,1.01,0)
  1. 	;;=DATE ENTERED^D^^1;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.1,1.01,21,0)
  1. 	;;=^^2^2^2930726^
  1. 	;;^DD(356.1,1.01,21,1,0)
  1. 	;;=This is the date this review was entered into the computer.  It is
  1. 	;;^DD(356.1,1.01,21,2,0)
  1. 	;;=generated when the review is entered and not editable by the user.
  1. 	;;^DD(356.1,1.01,"DT")
  1. 	;;=2930714
  1. 	;;^DD(356.1,1.02,0)
  1. 	;;=ENTERED BY^P200'^VA(200,^1;2^Q
  1. 	;;^DD(356.1,1.02,21,0)
  1. 	;;=^^4^4^2940213^^
  1. 	;;^DD(356.1,1.02,21,1,0)
  1. 	;;=This is the user who was signed on to the computer system when this
  1. 	;;^DD(356.1,1.02,21,2,0)
  1. 	;;=review was created.  If this review was created automatically by
  1. 	;;^DD(356.1,1.02,21,3,0)
  1. 	;;=the computer from an admission or outpatient visit, then this might
  1. 	;;^DD(356.1,1.02,21,4,0)
  1. 	;;=be a user for MAS, IRM or other service.
  1. 	;;^DD(356.1,1.02,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.1,1.03,0)
  1. 	;;=LAST EDIT ON^D^^1;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.1,1.03,3)
  1. 	;;=
  1. 	;;^DD(356.1,1.03,21,0)
  1. 	;;=^^4^4^2930726^^^
  1. 	;;^DD(356.1,1.03,21,1,0)
  1. 	;;=This is the date that this review was last edited by a user using 
  1. 	;;^DD(356.1,1.03,21,2,0)
  1. 	;;=the input options.  Every time any
  1. 	;;^DD(356.1,1.03,21,3,0)
  1. 	;;=field other than the UR COMMENT field is edited this field is updated
  1. 	;;^DD(356.1,1.03,21,4,0)
  1. 	;;=to the current date.
  1. 	;;^DD(356.1,1.03,"DT")
  1. 	;;=2930714
  1. 	;;^DD(356.1,1.04,0)
  1. 	;;=LAST EDITED BY^P200'^VA(200,^1;4^Q
  1. 	;;^DD(356.1,1.04,21,0)
  1. 	;;=^^4^4^2940213^^
  1. 	;;^DD(356.1,1.04,21,1,0)
  1. 	;;=This is the signed on user who last edited this entry using the input
  1. 	;;^DD(356.1,1.04,21,2,0)
  1. 	;;=screens.  Every time a review is edited with the input screens, this
  1. 	;;^DD(356.1,1.04,21,3,0)
  1. 	;;=field is updated.  (If only the UR COMMENTS field is updated then
  1. 	;;^DD(356.1,1.04,21,4,0)
  1. 	;;=this field is not changed.)
  1. 	;;^DD(356.1,1.04,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.1,1.05,0)
  1. 	;;=DATE COMPLETED^D^^1;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.1,1.05,3)
  1. 	;;=
  1. 	;;^DD(356.1,1.05,5,1,0)
  1. 	;;=356.1^.21^2
  1. 	;;^DD(356.1,1.05,21,0)
  1. 	;;=^^2^2^2940213^^^
  1. 	;;^DD(356.1,1.05,21,1,0)
  1. 	;;=This is the date that this review was completed.  It is triggered by 
  1. 	;;^DD(356.1,1.05,21,2,0)
  1. 	;;=the REVIEW STATUS field every time the review is completed.
  1. 	;;^DD(356.1,1.05,"DT")
  1. 	;;=2930714
  1. 	;;^DD(356.1,1.06,0)
  1. 	;;=COMPLETED BY^P200'^VA(200,^1;6^Q
  1. 	;;^DD(356.1,1.06,5,1,0)
  1. 	;;=356.1^.21^3
  1. 	;;^DD(356.1,1.06,21,0)
  1. 	;;=^^2^2^2930726^
  1. 	;;^DD(356.1,1.06,21,1,0)
  1. 	;;=This is the user who completed this review.  It is triggered by the
  1. 	;;^DD(356.1,1.06,21,2,0)
  1. 	;;=REVIEW STATUS field when the status chages to complete.
  1. 	;;^DD(356.1,1.06,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.1,1.13,0)
  1. 	;;=ADD NEXT REVIEW^S^1:YES;0:NO;^1;13^Q
  1. 	;;^DD(356.1,1.13,21,0)
  1. 	;;=^^4^4^2940213^^
  1. 	;;^DD(356.1,1.13,21,1,0)
  1. 	;;=If you wish to add the next day reviewed at this time answer YEand
  1. 	;;^DD(356.1,1.13,21,2,0)
  1. 	;;=you may procede directly into the next review.  Answer NO and you
  1. 	;;^DD(356.1,1.13,21,3,0)
  1. 	;;=will be returned to the Hospital Review Screen.  You may add another
  1. 	;;^DD(356.1,1.13,21,4,0)
  1. 	;;=day for review at any time.
  1. 	;;^DD(356.1,1.13,"DT")
  1. 	;;=2930830
  1. 	;;^DD(356.1,1.14,0)
  1. 	;;=NEXT REVIEW EXACTLY THE SAME^S^1:YES;0:NO;^1;14^Q
  1. 	;;^DD(356.1,1.14,3)
  1. 	;;=
  1. 	;;^DD(356.1,1.14,21,0)
  1. 	;;=^^6^6^2940213^^
  1. 	;;^DD(356.1,1.14,21,1,0)
  1. 	;;=If the Next Day for Review is exactly the same as the day you just
  1. 	;;^DD(356.1,1.14,21,2,0)
  1. 	;;=finished entering answer YES and the computer will copy this days