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

FHINI0MI.m

Go to the documentation of this file.
  1. FHINI0MI ; ; 11-OCT-1995
  1. ;;5.0;Dietetics;;Oct 11, 1995
  1. Q:'DIFQR(119.4) 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. ;;^UTILITY(U,$J,119.4)
  1. ;;=^FH(119.4,
  1. ;;^UTILITY(U,$J,119.4,0)
  1. ;;=ISOLATION/PRECAUTION TYPE^119.4sI^4^4
  1. ;;^UTILITY(U,$J,119.4,1,0)
  1. ;;=RESPIRATORY^C^N
  1. ;;^UTILITY(U,$J,119.4,2,0)
  1. ;;=STRICT^C^N
  1. ;;^UTILITY(U,$J,119.4,3,0)
  1. ;;=PROTECTIVE^P^F
  1. ;;^UTILITY(U,$J,119.4,4,0)
  1. ;;=WOUND/SKIN^P^F