FHINI0LW.m

FHINI0LW	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	Q:'DIFQ(117.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

Q	Q

	;;^DD(117.362,1,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.362,1,21,1,0)

	;;=This is a rating string containing numbers surveyed in GM&S with the

	;;^DD(117.362,1,21,2,0)

	;;=ratings specified in front of them on question five of the survey.

	;;^DD(117.362,1,"DT")

	;;=2931230

	;;^DD(117.362,2,0)

	;;=NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.362,2,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.362,2,4)

	;;=D HEL^FHADR9

	;;^DD(117.362,2,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.362,2,21,1,0)

	;;=This is a rating string containing numbers surveyed in NHCU with the

	;;^DD(117.362,2,21,2,0)

	;;=ratings specified in front of them on question five of the survey.

	;;^DD(117.362,2,"DT")

	;;=2931230

	;;^DD(117.362,3,0)

	;;=PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.362,3,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.362,3,4)

	;;=D HEL^FHADR9

	;;^DD(117.362,3,21,0)

	;;=^^3^3^2931228^

	;;^DD(117.362,3,21,1,0)

	;;=This is a rating string containing numbers surveyed in PSYCH with

	;;^DD(117.362,3,21,2,0)

	;;=the ratings specified in front of them on question five of the

	;;^DD(117.362,3,21,3,0)

	;;=survey.

	;;^DD(117.362,3,"DT")

	;;=2931230

	;;^DD(117.362,4,0)

	;;=DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.362,4,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.362,4,4)

	;;=D HEL^FHADR9

	;;^DD(117.362,4,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.362,4,21,1,0)

	;;=This is a rating string containing numbers surveyed in the DOM with

	;;^DD(117.362,4,21,2,0)

	;;=the ratings specified in front of them on question five of the survey.

	;;^DD(117.362,4,"DT")

	;;=2931230

	;;^DD(117.362,5,0)

	;;=SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.362,5,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.362,5,4)

	;;=D HEL^FHADR9

	;;^DD(117.362,5,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.362,5,21,1,0)

	;;=This is a rating string containing numbers surveyed in SCI with the

	;;^DD(117.362,5,21,2,0)

	;;=ratings specified in front of them on question five of the survey.

	;;^DD(117.362,5,"DT")

	;;=2931230

	;;^DD(117.362,6,0)

	;;=OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.362,6,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.362,6,4)

	;;=D HEL^FHADR9

	;;^DD(117.362,6,21,0)

	;;=^^3^3^2931228^

	;;^DD(117.362,6,21,1,0)

	;;=This is a rating string containing numbers surveyed in other service

	;;^DD(117.362,6,21,2,0)

	;;=with the ratings specified in front of them on question five of the

	;;^DD(117.362,6,21,3,0)

	;;=survey.

	;;^DD(117.362,6,"DT")

	;;=2931230

	;;^DD(117.363,0)

	;;=COURTEOUS SUB-FIELD^^6^7

	;;^DD(117.363,0,"DT")

	;;=2931228

	;;^DD(117.363,0,"IX","B",117.363,.01)

	;;=

	;;^DD(117.363,0,"NM","COURTEOUS")

	;;=

	;;^DD(117.363,0,"UP")

	;;=117.3

	;;^DD(117.363,.01,0)

	;;=COURTEOUS NUMBER^NJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X

	;;^DD(117.363,.01,1,0)

	;;=^.1

	;;^DD(117.363,.01,1,1,0)

	;;=117.363^B

	;;^DD(117.363,.01,1,1,1)

	;;=S ^FH(117.3,DA(1),"CRS","B",$E(X,1,30),DA)=""

	;;^DD(117.363,.01,1,1,2)

	;;=K ^FH(117.3,DA(1),"CRS","B",$E(X,1,30),DA)

	;;^DD(117.363,.01,3)

	;;=Type a Number between 1 and 999, 0 Decimal Digits

	;;^DD(117.363,.01,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.363,.01,21,1,0)

	;;=This field contains a sequential number assigned to question six of

	;;^DD(117.363,.01,21,2,0)

	;;=the Dietetic Survey and has no meaning.

	;;^DD(117.363,.01,"DT")

	;;=2931228

	;;^DD(117.363,1,0)

	;;=GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.363,1,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.363,1,4)

	;;=D HEL^FHADR9

	;;^DD(117.363,1,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.363,1,21,1,0)

	;;=This is a rating string containing numbers surveyed in GM&S with

	;;^DD(117.363,1,21,2,0)

	;;=the ratings specified in front of them on question six of the survey.

	;;^DD(117.363,1,"DT")

	;;=2931230

	;;^DD(117.363,2,0)

	;;=NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.363,2,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.363,2,4)

	;;=D HEL^FHADR9

	;;^DD(117.363,2,21,0)

	;;=^^2^2^2931228^

	;;^DD(117.363,2,21,1,0)

	;;=This is a rating string containing numbers surveyed in NHCU with the

	;;^DD(117.363,2,21,2,0)

	;;=ratings specified in front of them on question six of the survey.

	;;^DD(117.363,2,"DT")

	;;=2931230

	;;^DD(117.363,3,0)

	;;=PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

	;;^DD(117.363,3,3)

	;;=Answer must be 2-35 characters in length.

	;;^DD(117.363,3,4)

	;;=D HEL^FHADR9

	;;^DD(117.363,3,21,0)

	;;=^^2^2^2931228^

FHINI0LW  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        IF 'DIFQ(117.3)

               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       ;;^DD(117.362,1,21,0)

 +2       ;;=^^2^2^2931228^

 +3       ;;^DD(117.362,1,21,1,0)

 +4       ;;=This is a rating string containing numbers surveyed in GM&S with the

 +5       ;;^DD(117.362,1,21,2,0)

 +6       ;;=ratings specified in front of them on question five of the survey.

 +7       ;;^DD(117.362,1,"DT")

 +8       ;;=2931230

 +9       ;;^DD(117.362,2,0)

 +10      ;;=NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +11      ;;^DD(117.362,2,3)

 +12      ;;=Answer must be 2-35 characters in length.

 +13      ;;^DD(117.362,2,4)

 +14      ;;=D HEL^FHADR9

 +15      ;;^DD(117.362,2,21,0)

 +16      ;;=^^2^2^2931228^

 +17      ;;^DD(117.362,2,21,1,0)

 +18      ;;=This is a rating string containing numbers surveyed in NHCU with the

 +19      ;;^DD(117.362,2,21,2,0)

 +20      ;;=ratings specified in front of them on question five of the survey.

 +21      ;;^DD(117.362,2,"DT")

 +22      ;;=2931230

 +23      ;;^DD(117.362,3,0)

 +24      ;;=PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +25      ;;^DD(117.362,3,3)

 +26      ;;=Answer must be 2-35 characters in length.

 +27      ;;^DD(117.362,3,4)

 +28      ;;=D HEL^FHADR9

 +29      ;;^DD(117.362,3,21,0)

 +30      ;;=^^3^3^2931228^

 +31      ;;^DD(117.362,3,21,1,0)

 +32      ;;=This is a rating string containing numbers surveyed in PSYCH with

 +33      ;;^DD(117.362,3,21,2,0)

 +34      ;;=the ratings specified in front of them on question five of the

 +35      ;;^DD(117.362,3,21,3,0)

 +36      ;;=survey.

 +37      ;;^DD(117.362,3,"DT")

 +38      ;;=2931230

 +39      ;;^DD(117.362,4,0)

 +40      ;;=DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +41      ;;^DD(117.362,4,3)

 +42      ;;=Answer must be 2-35 characters in length.

 +43      ;;^DD(117.362,4,4)

 +44      ;;=D HEL^FHADR9

 +45      ;;^DD(117.362,4,21,0)

 +46      ;;=^^2^2^2931228^

 +47      ;;^DD(117.362,4,21,1,0)

 +48      ;;=This is a rating string containing numbers surveyed in the DOM with

 +49      ;;^DD(117.362,4,21,2,0)

 +50      ;;=the ratings specified in front of them on question five of the survey.

 +51      ;;^DD(117.362,4,"DT")

 +52      ;;=2931230

 +53      ;;^DD(117.362,5,0)

 +54      ;;=SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +55      ;;^DD(117.362,5,3)

 +56      ;;=Answer must be 2-35 characters in length.

 +57      ;;^DD(117.362,5,4)

 +58      ;;=D HEL^FHADR9

 +59      ;;^DD(117.362,5,21,0)

 +60      ;;=^^2^2^2931228^

 +61      ;;^DD(117.362,5,21,1,0)

 +62      ;;=This is a rating string containing numbers surveyed in SCI with the

 +63      ;;^DD(117.362,5,21,2,0)

 +64      ;;=ratings specified in front of them on question five of the survey.

 +65      ;;^DD(117.362,5,"DT")

 +66      ;;=2931230

 +67      ;;^DD(117.362,6,0)

 +68      ;;=OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +69      ;;^DD(117.362,6,3)

 +70      ;;=Answer must be 2-35 characters in length.

 +71      ;;^DD(117.362,6,4)

 +72      ;;=D HEL^FHADR9

 +73      ;;^DD(117.362,6,21,0)

 +74      ;;=^^3^3^2931228^

 +75      ;;^DD(117.362,6,21,1,0)

 +76      ;;=This is a rating string containing numbers surveyed in other service

 +77      ;;^DD(117.362,6,21,2,0)

 +78      ;;=with the ratings specified in front of them on question five of the

 +79      ;;^DD(117.362,6,21,3,0)

 +80      ;;=survey.

 +81      ;;^DD(117.362,6,"DT")

 +82      ;;=2931230

 +83      ;;^DD(117.363,0)

 +84      ;;=COURTEOUS SUB-FIELD^^6^7

 +85      ;;^DD(117.363,0,"DT")

 +86      ;;=2931228

 +87      ;;^DD(117.363,0,"IX","B",117.363,.01)

 +88      ;;=

 +89      ;;^DD(117.363,0,"NM","COURTEOUS")

 +90      ;;=

 +91      ;;^DD(117.363,0,"UP")

 +92      ;;=117.3

 +93      ;;^DD(117.363,.01,0)

 +94      ;;=COURTEOUS NUMBER^NJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X

 +95      ;;^DD(117.363,.01,1,0)

 +96      ;;=^.1

 +97      ;;^DD(117.363,.01,1,1,0)

 +98      ;;=117.363^B

 +99      ;;^DD(117.363,.01,1,1,1)

 +100     ;;=S ^FH(117.3,DA(1),"CRS","B",$E(X,1,30),DA)=""

 +101     ;;^DD(117.363,.01,1,1,2)

 +102     ;;=K ^FH(117.3,DA(1),"CRS","B",$E(X,1,30),DA)

 +103     ;;^DD(117.363,.01,3)

 +104     ;;=Type a Number between 1 and 999, 0 Decimal Digits

 +105     ;;^DD(117.363,.01,21,0)

 +106     ;;=^^2^2^2931228^

 +107     ;;^DD(117.363,.01,21,1,0)

 +108     ;;=This field contains a sequential number assigned to question six of

 +109     ;;^DD(117.363,.01,21,2,0)

 +110     ;;=the Dietetic Survey and has no meaning.

 +111     ;;^DD(117.363,.01,"DT")

 +112     ;;=2931228

 +113     ;;^DD(117.363,1,0)

 +114     ;;=GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +115     ;;^DD(117.363,1,3)

 +116     ;;=Answer must be 2-35 characters in length.

 +117     ;;^DD(117.363,1,4)

 +118     ;;=D HEL^FHADR9

 +119     ;;^DD(117.363,1,21,0)

 +120     ;;=^^2^2^2931228^

 +121     ;;^DD(117.363,1,21,1,0)

 +122     ;;=This is a rating string containing numbers surveyed in GM&S with

 +123     ;;^DD(117.363,1,21,2,0)

 +124     ;;=the ratings specified in front of them on question six of the survey.

 +125     ;;^DD(117.363,1,"DT")

 +126     ;;=2931230

 +127     ;;^DD(117.363,2,0)

 +128     ;;=NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +129     ;;^DD(117.363,2,3)

 +130     ;;=Answer must be 2-35 characters in length.

 +131     ;;^DD(117.363,2,4)

 +132     ;;=D HEL^FHADR9

 +133     ;;^DD(117.363,2,21,0)

 +134     ;;=^^2^2^2931228^

 +135     ;;^DD(117.363,2,21,1,0)

 +136     ;;=This is a rating string containing numbers surveyed in NHCU with the

 +137     ;;^DD(117.363,2,21,2,0)

 +138     ;;=ratings specified in front of them on question six of the survey.

 +139     ;;^DD(117.363,2,"DT")

 +140     ;;=2931230

 +141     ;;^DD(117.363,3,0)

 +142     ;;=PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9

 +143     ;;^DD(117.363,3,3)

 +144     ;;=Answer must be 2-35 characters in length.

 +145     ;;^DD(117.363,3,4)

 +146     ;;=D HEL^FHADR9

 +147     ;;^DD(117.363,3,21,0)

 +148     ;;=^^2^2^2931228^