FHINI0MY ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(119.74) 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(119.74,0,"GL")
;;=^FH(119.74,
;;^DIC("B","SUPPLEMENTAL FEEDING SITE",119.74)
;;=
;;^DIC(119.74,"%D",0)
;;=^^3^3^2911204^
;;^DIC(119.74,"%D",1,0)
;;=This file contains a list of Supplemental Feeding Sites and associated
;;^DIC(119.74,"%D",2,0)
;;=parameters. A Supplemental Feeding Site prepares orders for a
;;^DIC(119.74,"%D",3,0)
;;=group of wards for which it is responsible.
;;^DD(119.74,0)
;;=FIELD^^21^5
;;^DD(119.74,0,"DT")
;;=2911203
;;^DD(119.74,0,"IX","B",119.74,.01)
;;=
;;^DD(119.74,0,"IX","C",119.74,1)
;;=
;;^DD(119.74,0,"NM","SUPPLEMENTAL FEEDING SITE")
;;=
;;^DD(119.74,0,"PT",119.6,7)
;;=
;;^DD(119.74,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
;;^DD(119.74,.01,1,0)
;;=^.1
;;^DD(119.74,.01,1,1,0)
;;=119.74^B
;;^DD(119.74,.01,1,1,1)
;;=S ^FH(119.74,"B",$E(X,1,30),DA)=""
;;^DD(119.74,.01,1,1,2)
;;=K ^FH(119.74,"B",$E(X,1,30),DA)
;;^DD(119.74,.01,3)
;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
;;^DD(119.74,.01,21,0)
;;=^^3^3^2911204^^
;;^DD(119.74,.01,21,1,0)
;;=This field contains the name of the Supplemental Feeding Site. It is
;;^DD(119.74,.01,21,2,0)
;;=responsible for the assembly and delivery of supplemental feedings
;;^DD(119.74,.01,21,3,0)
;;=to a group of Dietetic Wards.
;;^DD(119.74,1,0)
;;=SHORT NAME^F^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X
;;^DD(119.74,1,1,0)
;;=^.1
;;^DD(119.74,1,1,1,0)
;;=119.74^C
;;^DD(119.74,1,1,1,1)
;;=S ^FH(119.74,"C",$E(X,1,30),DA)=""
;;^DD(119.74,1,1,1,2)
;;=K ^FH(119.74,"C",$E(X,1,30),DA)
;;^DD(119.74,1,1,1,"DT")
;;=2930427
;;^DD(119.74,1,3)
;;=Answer must be 1-6 characters in length.
;;^DD(119.74,1,21,0)
;;=^^2^2^2911204^
;;^DD(119.74,1,21,1,0)
;;=This field contains a short 6-character name to be used on various
;;^DD(119.74,1,21,2,0)
;;=reports.
;;^DD(119.74,1,"DT")
;;=2930427
;;^DD(119.74,2,0)
;;=PRODUCTION FACILITY^RP119.71'^FH(119.71,^0;3^Q
;;^DD(119.74,2,21,0)
;;=^^3^3^2950614^^
;;^DD(119.74,2,21,1,0)
;;=This field indicates the production facility that is responsible for
;;^DD(119.74,2,21,2,0)
;;=preparing the food used in the supplemental feedings distributed by
;;^DD(119.74,2,21,3,0)
;;=this site.
;;^DD(119.74,2,"DT")
;;=2911108
;;^DD(119.74,20,0)
;;=SEPARATE SUPP FDG LABELS?^S^Y:YES;N:NO;^0;4^Q
;;^DD(119.74,20,21,0)
;;=^^3^3^2930423^^
;;^DD(119.74,20,21,1,0)
;;=This field, if answered YES, indicates that each supplemental
;;^DD(119.74,20,21,2,0)
;;=feeding item should be on an individual label rather than having
;;^DD(119.74,20,21,3,0)
;;=all items on the item.
;;^DD(119.74,20,"DT")
;;=2930423
;;^DD(119.74,21,0)
;;=INGREDIENTS ON WARD LISTS?^S^Y:YES;N:NO;^0;5^Q
;;^DD(119.74,21,21,0)
;;=^^3^3^2880718^^
;;^DD(119.74,21,21,1,0)
;;=This field, if answered YES, will result in the Ward Supplemental
;;^DD(119.74,21,21,2,0)
;;=Feeding lists printing the consolidated ingredient requirements
;;^DD(119.74,21,21,3,0)
;;=following each ward.
;;^DD(119.74,21,"DT")
;;=2850308
FHINI0MY ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(119.74)
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(119.74,0,"GL")
+2 ;;=^FH(119.74,
+3 ;;^DIC("B","SUPPLEMENTAL FEEDING SITE",119.74)
+4 ;;=
+5 ;;^DIC(119.74,"%D",0)
+6 ;;=^^3^3^2911204^
+7 ;;^DIC(119.74,"%D",1,0)
+8 ;;=This file contains a list of Supplemental Feeding Sites and associated
+9 ;;^DIC(119.74,"%D",2,0)
+10 ;;=parameters. A Supplemental Feeding Site prepares orders for a
+11 ;;^DIC(119.74,"%D",3,0)
+12 ;;=group of wards for which it is responsible.
+13 ;;^DD(119.74,0)
+14 ;;=FIELD^^21^5
+15 ;;^DD(119.74,0,"DT")
+16 ;;=2911203
+17 ;;^DD(119.74,0,"IX","B",119.74,.01)
+18 ;;=
+19 ;;^DD(119.74,0,"IX","C",119.74,1)
+20 ;;=
+21 ;;^DD(119.74,0,"NM","SUPPLEMENTAL FEEDING SITE")
+22 ;;=
+23 ;;^DD(119.74,0,"PT",119.6,7)
+24 ;;=
+25 ;;^DD(119.74,.01,0)
+26 ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
+27 ;;^DD(119.74,.01,1,0)
+28 ;;=^.1
+29 ;;^DD(119.74,.01,1,1,0)
+30 ;;=119.74^B
+31 ;;^DD(119.74,.01,1,1,1)
+32 ;;=S ^FH(119.74,"B",$E(X,1,30),DA)=""
+33 ;;^DD(119.74,.01,1,1,2)
+34 ;;=K ^FH(119.74,"B",$E(X,1,30),DA)
+35 ;;^DD(119.74,.01,3)
+36 ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
+37 ;;^DD(119.74,.01,21,0)
+38 ;;=^^3^3^2911204^^
+39 ;;^DD(119.74,.01,21,1,0)
+40 ;;=This field contains the name of the Supplemental Feeding Site. It is
+41 ;;^DD(119.74,.01,21,2,0)
+42 ;;=responsible for the assembly and delivery of supplemental feedings
+43 ;;^DD(119.74,.01,21,3,0)
+44 ;;=to a group of Dietetic Wards.
+45 ;;^DD(119.74,1,0)
+46 ;;=SHORT NAME^F^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X
+47 ;;^DD(119.74,1,1,0)
+48 ;;=^.1
+49 ;;^DD(119.74,1,1,1,0)
+50 ;;=119.74^C
+51 ;;^DD(119.74,1,1,1,1)
+52 ;;=S ^FH(119.74,"C",$E(X,1,30),DA)=""
+53 ;;^DD(119.74,1,1,1,2)
+54 ;;=K ^FH(119.74,"C",$E(X,1,30),DA)
+55 ;;^DD(119.74,1,1,1,"DT")
+56 ;;=2930427
+57 ;;^DD(119.74,1,3)
+58 ;;=Answer must be 1-6 characters in length.
+59 ;;^DD(119.74,1,21,0)
+60 ;;=^^2^2^2911204^
+61 ;;^DD(119.74,1,21,1,0)
+62 ;;=This field contains a short 6-character name to be used on various
+63 ;;^DD(119.74,1,21,2,0)
+64 ;;=reports.
+65 ;;^DD(119.74,1,"DT")
+66 ;;=2930427
+67 ;;^DD(119.74,2,0)
+68 ;;=PRODUCTION FACILITY^RP119.71'^FH(119.71,^0;3^Q
+69 ;;^DD(119.74,2,21,0)
+70 ;;=^^3^3^2950614^^
+71 ;;^DD(119.74,2,21,1,0)
+72 ;;=This field indicates the production facility that is responsible for
+73 ;;^DD(119.74,2,21,2,0)
+74 ;;=preparing the food used in the supplemental feedings distributed by
+75 ;;^DD(119.74,2,21,3,0)
+76 ;;=this site.
+77 ;;^DD(119.74,2,"DT")
+78 ;;=2911108
+79 ;;^DD(119.74,20,0)
+80 ;;=SEPARATE SUPP FDG LABELS?^S^Y:YES;N:NO;^0;4^Q
+81 ;;^DD(119.74,20,21,0)
+82 ;;=^^3^3^2930423^^
+83 ;;^DD(119.74,20,21,1,0)
+84 ;;=This field, if answered YES, indicates that each supplemental
+85 ;;^DD(119.74,20,21,2,0)
+86 ;;=feeding item should be on an individual label rather than having
+87 ;;^DD(119.74,20,21,3,0)
+88 ;;=all items on the item.
+89 ;;^DD(119.74,20,"DT")
+90 ;;=2930423
+91 ;;^DD(119.74,21,0)
+92 ;;=INGREDIENTS ON WARD LISTS?^S^Y:YES;N:NO;^0;5^Q
+93 ;;^DD(119.74,21,21,0)
+94 ;;=^^3^3^2880718^^
+95 ;;^DD(119.74,21,21,1,0)
+96 ;;=This field, if answered YES, will result in the Ward Supplemental
+97 ;;^DD(119.74,21,21,2,0)
+98 ;;=Feeding lists printing the consolidated ingredient requirements
+99 ;;^DD(119.74,21,21,3,0)
+100 ;;=following each ward.
+101 ;;^DD(119.74,21,"DT")
+102 ;;=2850308
