FHINI0M0 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(117.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
Q Q
;;^DIC(117.4,0,"GL")
;;=^FH(117.4,
;;^DIC("B","DIETETIC REPORT CATEGORIES",117.4)
;;=
;;^DIC(117.4,"%D",0)
;;=^^3^3^2920623^^
;;^DIC(117.4,"%D",1,0)
;;=This file contains the categories, Specialized Medical Programs,
;;^DIC(117.4,"%D",2,0)
;;=Primary Delivery System, Primary Production System, and the
;;^DIC(117.4,"%D",3,0)
;;=Dietetic Service Equipment.
;;^DD(117.4,0)
;;=FIELD^^101^3
;;^DD(117.4,0,"DDA")
;;=N
;;^DD(117.4,0,"DT")
;;=2920130
;;^DD(117.4,0,"IX","B",117.4,.01)
;;=
;;^DD(117.4,0,"IX","C",117.4,101)
;;=
;;^DD(117.4,0,"NM","DIETETIC REPORT CATEGORIES")
;;=
;;^DD(117.4,0,"PT",117.312,.01)
;;=
;;^DD(117.4,0,"PT",117.313,.01)
;;=
;;^DD(117.4,0,"PT",117.338,.01)
;;=
;;^DD(117.4,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
;;^DD(117.4,.01,1,0)
;;=^.1
;;^DD(117.4,.01,1,1,0)
;;=117.4^B
;;^DD(117.4,.01,1,1,1)
;;=S ^FH(117.4,"B",$E(X,1,30),DA)=""
;;^DD(117.4,.01,1,1,2)
;;=K ^FH(117.4,"B",$E(X,1,30),DA)
;;^DD(117.4,.01,1,2,0)
;;=^^TRIGGER^117.4^101
;;^DD(117.4,.01,1,2,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(117.4,.01,1,2,1.1) X ^DD(117.4,.01,1,2,1.4)
;;^DD(117.4,.01,1,2,1.1)
;;=S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)
;;^DD(117.4,.01,1,2,1.4)
;;=S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(117.4,.01,1,2,2)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(117.4,.01,1,2,2.4)
;;^DD(117.4,.01,1,2,2.4)
;;=S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(117.4,.01,1,2,"%D",0)
;;=^^2^2^2911213^
;;^DD(117.4,.01,1,2,"%D",1,0)
;;=This trigger converts the upper/lower case name into all uppercase
;;^DD(117.4,.01,1,2,"%D",2,0)
;;=and stores it in field 101.
;;^DD(117.4,.01,1,2,"CREATE VALUE")
;;=$E(UPPERCASE(NAME),1,30)
;;^DD(117.4,.01,1,2,"DELETE VALUE")
;;=@
;;^DD(117.4,.01,1,2,"DT")
;;=2911213
;;^DD(117.4,.01,1,2,"FIELD")
;;=UPPER
;;^DD(117.4,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(117.4,.01,21,0)
;;=^^2^2^2920130^
;;^DD(117.4,.01,21,1,0)
;;=This field contains the names of the categories used in the Annual
;;^DD(117.4,.01,21,2,0)
;;=Report.
;;^DD(117.4,.01,"DT")
;;=2911213
;;^DD(117.4,1,0)
;;=TYPE^RS^S:Specialized Medical Program;D:Primary Delivery System;P:Primary Production System;E:Dietetic Service Equipment;^0;2^Q
;;^DD(117.4,1,21,0)
;;=^^3^3^2920130^
;;^DD(117.4,1,21,1,0)
;;=This field contains the Type of Category. An "S" for Specialized
;;^DD(117.4,1,21,2,0)
;;=Medical Program, a "D" for Primary Delivery System, a "P" for
;;^DD(117.4,1,21,3,0)
;;=Primary Production System, and "E" for Dietetic Service Equipment.
;;^DD(117.4,1,"DT")
;;=2920130
;;^DD(117.4,101,0)
;;=UPPERCASE NAME^F^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
;;^DD(117.4,101,1,0)
;;=^.1
;;^DD(117.4,101,1,1,0)
;;=117.4^C
;;^DD(117.4,101,1,1,1)
;;=S ^FH(117.4,"C",$E(X,1,30),DA)=""
;;^DD(117.4,101,1,1,2)
;;=K ^FH(117.4,"C",$E(X,1,30),DA)
;;^DD(117.4,101,1,1,"%D",0)
;;=^^1^1^2911213^
;;^DD(117.4,101,1,1,"%D",1,0)
;;=This is a cross-reference of all uppercase text of the name.
;;^DD(117.4,101,1,1,"DT")
;;=2911213
;;^DD(117.4,101,3)
;;=Answer must be 3-30 characters in length.
;;^DD(117.4,101,5,1,0)
;;=117.4^.01^2
;;^DD(117.4,101,21,0)
;;=^^1^1^2920130^^^
;;^DD(117.4,101,21,1,0)
;;=This is the name of the entry in uppercase text.
;;^DD(117.4,101,"DT")
;;=2911213
FHINI0M0 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(117.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DIC(117.4,0,"GL")
+2 ;;=^FH(117.4,
+3 ;;^DIC("B","DIETETIC REPORT CATEGORIES",117.4)
+4 ;;=
+5 ;;^DIC(117.4,"%D",0)
+6 ;;=^^3^3^2920623^^
+7 ;;^DIC(117.4,"%D",1,0)
+8 ;;=This file contains the categories, Specialized Medical Programs,
+9 ;;^DIC(117.4,"%D",2,0)
+10 ;;=Primary Delivery System, Primary Production System, and the
+11 ;;^DIC(117.4,"%D",3,0)
+12 ;;=Dietetic Service Equipment.
+13 ;;^DD(117.4,0)
+14 ;;=FIELD^^101^3
+15 ;;^DD(117.4,0,"DDA")
+16 ;;=N
+17 ;;^DD(117.4,0,"DT")
+18 ;;=2920130
+19 ;;^DD(117.4,0,"IX","B",117.4,.01)
+20 ;;=
+21 ;;^DD(117.4,0,"IX","C",117.4,101)
+22 ;;=
+23 ;;^DD(117.4,0,"NM","DIETETIC REPORT CATEGORIES")
+24 ;;=
+25 ;;^DD(117.4,0,"PT",117.312,.01)
+26 ;;=
+27 ;;^DD(117.4,0,"PT",117.313,.01)
+28 ;;=
+29 ;;^DD(117.4,0,"PT",117.338,.01)
+30 ;;=
+31 ;;^DD(117.4,.01,0)
+32 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
+33 ;;^DD(117.4,.01,1,0)
+34 ;;=^.1
+35 ;;^DD(117.4,.01,1,1,0)
+36 ;;=117.4^B
+37 ;;^DD(117.4,.01,1,1,1)
+38 ;;=S ^FH(117.4,"B",$E(X,1,30),DA)=""
+39 ;;^DD(117.4,.01,1,1,2)
+40 ;;=K ^FH(117.4,"B",$E(X,1,30),DA)
+41 ;;^DD(117.4,.01,1,2,0)
+42 ;;=^^TRIGGER^117.4^101
+43 ;;^DD(117.4,.01,1,2,1)
+44 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(117.4,.01,1,2,1.1) X ^DD(117.4,.01,1,2,1.4)
+45 ;;^DD(117.4,.01,1,2,1.1)
+46 ;;=S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)
+47 ;;^DD(117.4,.01,1,2,1.4)
+48 ;;=S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+49 ;;^DD(117.4,.01,1,2,2)
+50 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(117.4,.01,1,2,2.4)
+51 ;;^DD(117.4,.01,1,2,2.4)
+52 ;;=S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+53 ;;^DD(117.4,.01,1,2,"%D",0)
+54 ;;=^^2^2^2911213^
+55 ;;^DD(117.4,.01,1,2,"%D",1,0)
+56 ;;=This trigger converts the upper/lower case name into all uppercase
+57 ;;^DD(117.4,.01,1,2,"%D",2,0)
+58 ;;=and stores it in field 101.
+59 ;;^DD(117.4,.01,1,2,"CREATE VALUE")
+60 ;;=$E(UPPERCASE(NAME),1,30)
+61 ;;^DD(117.4,.01,1,2,"DELETE VALUE")
+62 ;;=@
+63 ;;^DD(117.4,.01,1,2,"DT")
+64 ;;=2911213
+65 ;;^DD(117.4,.01,1,2,"FIELD")
+66 ;;=UPPER
+67 ;;^DD(117.4,.01,3)
+68 ;;=Answer must be 3-30 characters in length.
+69 ;;^DD(117.4,.01,21,0)
+70 ;;=^^2^2^2920130^
+71 ;;^DD(117.4,.01,21,1,0)
+72 ;;=This field contains the names of the categories used in the Annual
+73 ;;^DD(117.4,.01,21,2,0)
+74 ;;=Report.
+75 ;;^DD(117.4,.01,"DT")
+76 ;;=2911213
+77 ;;^DD(117.4,1,0)
+78 ;;=TYPE^RS^S:Specialized Medical Program;D:Primary Delivery System;P:Primary Production System;E:Dietetic Service Equipment;^0;2^Q
+79 ;;^DD(117.4,1,21,0)
+80 ;;=^^3^3^2920130^
+81 ;;^DD(117.4,1,21,1,0)
+82 ;;=This field contains the Type of Category. An "S" for Specialized
+83 ;;^DD(117.4,1,21,2,0)
+84 ;;=Medical Program, a "D" for Primary Delivery System, a "P" for
+85 ;;^DD(117.4,1,21,3,0)
+86 ;;=Primary Production System, and "E" for Dietetic Service Equipment.
+87 ;;^DD(117.4,1,"DT")
+88 ;;=2920130
+89 ;;^DD(117.4,101,0)
+90 ;;=UPPERCASE NAME^F^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
+91 ;;^DD(117.4,101,1,0)
+92 ;;=^.1
+93 ;;^DD(117.4,101,1,1,0)
+94 ;;=117.4^C
+95 ;;^DD(117.4,101,1,1,1)
+96 ;;=S ^FH(117.4,"C",$E(X,1,30),DA)=""
+97 ;;^DD(117.4,101,1,1,2)
+98 ;;=K ^FH(117.4,"C",$E(X,1,30),DA)
+99 ;;^DD(117.4,101,1,1,"%D",0)
+100 ;;=^^1^1^2911213^
+101 ;;^DD(117.4,101,1,1,"%D",1,0)
+102 ;;=This is a cross-reference of all uppercase text of the name.
+103 ;;^DD(117.4,101,1,1,"DT")
+104 ;;=2911213
+105 ;;^DD(117.4,101,3)
+106 ;;=Answer must be 3-30 characters in length.
+107 ;;^DD(117.4,101,5,1,0)
+108 ;;=117.4^.01^2
+109 ;;^DD(117.4,101,21,0)
+110 ;;=^^1^1^2920130^^^
+111 ;;^DD(117.4,101,21,1,0)
+112 ;;=This is the name of the entry in uppercase text.
+113 ;;^DD(117.4,101,"DT")
+114 ;;=2911213
