FHINI0L2 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(115.6) 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(115.6,0,"GL")
;;=^FH(115.6,
;;^DIC("B","ENCOUNTER TYPES",115.6)
;;=
;;^DIC(115.6,"%D",0)
;;=^^3^3^2920623^^
;;^DIC(115.6,"%D",1,0)
;;=This file contains a list of types of dietetic encounters,
;;^DIC(115.6,"%D",2,0)
;;=or events, which are used to account for many of the professional
;;^DIC(115.6,"%D",3,0)
;;=activities of dietetic personnel.
;;^DD(115.6,0)
;;=FIELD^^101^11
;;^DD(115.6,0,"DDA")
;;=N
;;^DD(115.6,0,"DT")
;;=2920116
;;^DD(115.6,0,"ID",99)
;;=W:$D(^("I")) " (** INACTIVE **)"
;;^DD(115.6,0,"IX","AC",115.6,99)
;;=
;;^DD(115.6,0,"IX","AX",115.6,101)
;;=
;;^DD(115.6,0,"IX","B",115.6,.01)
;;=
;;^DD(115.6,0,"NM","ENCOUNTER TYPES")
;;=
;;^DD(115.6,0,"PT",115.7,3)
;;=
;;^DD(115.6,0,"SCR")
;;=I '$D(^FH(115.6,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
;;^DD(115.6,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
;;^DD(115.6,.01,1,0)
;;=^.1
;;^DD(115.6,.01,1,1,0)
;;=115.6^B
;;^DD(115.6,.01,1,1,1)
;;=S ^FH(115.6,"B",$E(X,1,30),DA)=""
;;^DD(115.6,.01,1,1,2)
;;=K ^FH(115.6,"B",$E(X,1,30),DA)
;;^DD(115.6,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(115.6,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the NAME field.
;;^DD(115.6,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(115.6,.01,21,0)
;;=^^1^1^2891121^
;;^DD(115.6,.01,21,1,0)
;;=This is the text of the name of the encounter type.
;;^DD(115.6,.01,"DEL",1,0)
;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
;;^DD(115.6,.01,"DEL",2,0)
;;=I DA<50
;;^DD(115.6,.01,"DT")
;;=2920116
;;^DD(115.6,2,0)
;;=INITIAL TIME^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(115.6,2,3)
;;=Type a Number between 0 and 999, 0 Decimal Digits
;;^DD(115.6,2,21,0)
;;=^^1^1^2900112^^
;;^DD(115.6,2,21,1,0)
;;=This is the time units for an initial encounter of this type.
;;^DD(115.6,2,"DT")
;;=2900112
;;^DD(115.6,3,0)
;;=FOLLOW-UP TIME^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(115.6,3,3)
;;=Type a Number between 0 and 999, 0 Decimal Digits
;;^DD(115.6,3,21,0)
;;=^^2^2^2891121^
;;^DD(115.6,3,21,1,0)
;;=This value, if defined, is the time units for a follow-up
;;^DD(115.6,3,21,2,0)
;;=encounter of this type.
;;^DD(115.6,3,"DT")
;;=2891107
;;^DD(115.6,4,0)
;;=ASK EVENT LOCATION?^S^Y:YES;N:NO;^0;5^Q
;;^DD(115.6,4,21,0)
;;=^^3^3^2891121^
;;^DD(115.6,4,21,1,0)
;;=This field, if YES, means that the event location will be asked
;;^DD(115.6,4,21,2,0)
;;=whenever an encounter of this type is entered into the
;;^DD(115.6,4,21,3,0)
;;=Encounter file (115.7).
;;^DD(115.6,4,"DT")
;;=2891107
;;^DD(115.6,5,0)
;;=INDIVIDUAL/GROUP/BOTH^S^I:INDIVIDUAL;G:GROUP;B:BOTH;^0;6^Q
;;^DD(115.6,5,21,0)
;;=^^2^2^2891121^
;;^DD(115.6,5,21,1,0)
;;=This field indicates whether the encounter type is an individual one,
;;^DD(115.6,5,21,2,0)
;;=a group one, or can be both.
;;^DD(115.6,5,"DT")
;;=2891107
;;^DD(115.6,6,0)
;;=ASK PATIENT NAME(S)?^S^Y:YES;N:NO;^0;7^Q
;;^DD(115.6,6,21,0)
;;=^^3^3^2891121^
;;^DD(115.6,6,21,1,0)
;;=This field, if answered YES, means that the clinician will be
;;^DD(115.6,6,21,2,0)
;;=prompted for patient names when an encounter of this type
;;^DD(115.6,6,21,3,0)
;;=is entered into the Encounter file (115.7).
;;^DD(115.6,6,"DT")
;;=2891107
;;^DD(115.6,7,0)
;;=ASK # COLLATERALS^S^Y:YES;N:NO;^0;8^Q
;;^DD(115.6,7,21,0)
;;=^^4^4^2891121^
;;^DD(115.6,7,21,1,0)
;;=This field, if answered YES, means that the clinician will be
;;^DD(115.6,7,21,2,0)
;;=prompted for the number of collaterals associated with each
;;^DD(115.6,7,21,3,0)
;;=patient when an encounter of this type is entered into the
;;^DD(115.6,7,21,4,0)
;;=Encounter file (115.7).
;;^DD(115.6,7,"DT")
;;=2891107
;;^DD(115.6,8,0)
;;=ASK FOR PATIENT COMMENT?^S^Y:YES;N:NO;^0;9^Q
;;^DD(115.6,8,21,0)
;;=^^4^4^2891121^
;;^DD(115.6,8,21,1,0)
;;=This field, if answered YES, means that the clinician will be
;;^DD(115.6,8,21,2,0)
;;=prompted for a comment to be associated with each patient
;;^DD(115.6,8,21,3,0)
;;=when an encounter of this type is entered into the
;;^DD(115.6,8,21,4,0)
;;=Encounter file (115.7).
;;^DD(115.6,8,"DT")
;;=2891107
;;^DD(115.6,10,0)
;;=CATEGORY^S^S:Screening;A:Assessment;E:Pat. Education;C:Community;N:Nutrition Inv.;F:Food Svc.;X:Administrative;^0;2^Q
;;^DD(115.6,10,21,0)
;;=^^1^1^2920107^^
;;^DD(115.6,10,21,1,0)
;;=The is the category of the Encounter Type.
;;^DD(115.6,10,"DT")
;;=2920107
;;^DD(115.6,99,0)
;;=INACTIVE?^S^Y:YES;N:NO;^I;1^Q
;;^DD(115.6,99,1,0)
;;=^.1
;;^DD(115.6,99,1,1,0)
;;=115.6^AC^MUMPS
;;^DD(115.6,99,1,1,1)
;;=K:X'="Y" ^FH(115.6,DA,"I")
FHINI0L2 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(115.6)
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(115.6,0,"GL")
+2 ;;=^FH(115.6,
+3 ;;^DIC("B","ENCOUNTER TYPES",115.6)
+4 ;;=
+5 ;;^DIC(115.6,"%D",0)
+6 ;;=^^3^3^2920623^^
+7 ;;^DIC(115.6,"%D",1,0)
+8 ;;=This file contains a list of types of dietetic encounters,
+9 ;;^DIC(115.6,"%D",2,0)
+10 ;;=or events, which are used to account for many of the professional
+11 ;;^DIC(115.6,"%D",3,0)
+12 ;;=activities of dietetic personnel.
+13 ;;^DD(115.6,0)
+14 ;;=FIELD^^101^11
+15 ;;^DD(115.6,0,"DDA")
+16 ;;=N
+17 ;;^DD(115.6,0,"DT")
+18 ;;=2920116
+19 ;;^DD(115.6,0,"ID",99)
+20 ;;=W:$D(^("I")) " (** INACTIVE **)"
+21 ;;^DD(115.6,0,"IX","AC",115.6,99)
+22 ;;=
+23 ;;^DD(115.6,0,"IX","AX",115.6,101)
+24 ;;=
+25 ;;^DD(115.6,0,"IX","B",115.6,.01)
+26 ;;=
+27 ;;^DD(115.6,0,"NM","ENCOUNTER TYPES")
+28 ;;=
+29 ;;^DD(115.6,0,"PT",115.7,3)
+30 ;;=
+31 ;;^DD(115.6,0,"SCR")
+32 ;;=I '$D(^FH(115.6,+Y,"I"))!$D(^XUSEC("FHMGR",DUZ))!(DUZ(0)["@")
+33 ;;^DD(115.6,.01,0)
+34 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
+35 ;;^DD(115.6,.01,1,0)
+36 ;;=^.1
+37 ;;^DD(115.6,.01,1,1,0)
+38 ;;=115.6^B
+39 ;;^DD(115.6,.01,1,1,1)
+40 ;;=S ^FH(115.6,"B",$E(X,1,30),DA)=""
+41 ;;^DD(115.6,.01,1,1,2)
+42 ;;=K ^FH(115.6,"B",$E(X,1,30),DA)
+43 ;;^DD(115.6,.01,1,1,"%D",0)
+44 ;;=^^1^1^2911118^
+45 ;;^DD(115.6,.01,1,1,"%D",1,0)
+46 ;;=This is the normal B cross-reference of the NAME field.
+47 ;;^DD(115.6,.01,3)
+48 ;;=Answer must be 3-30 characters in length.
+49 ;;^DD(115.6,.01,21,0)
+50 ;;=^^1^1^2891121^
+51 ;;^DD(115.6,.01,21,1,0)
+52 ;;=This is the text of the name of the encounter type.
+53 ;;^DD(115.6,.01,"DEL",1,0)
+54 ;;=I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
+55 ;;^DD(115.6,.01,"DEL",2,0)
+56 ;;=I DA<50
+57 ;;^DD(115.6,.01,"DT")
+58 ;;=2920116
+59 ;;^DD(115.6,2,0)
+60 ;;=INITIAL TIME^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
+61 ;;^DD(115.6,2,3)
+62 ;;=Type a Number between 0 and 999, 0 Decimal Digits
+63 ;;^DD(115.6,2,21,0)
+64 ;;=^^1^1^2900112^^
+65 ;;^DD(115.6,2,21,1,0)
+66 ;;=This is the time units for an initial encounter of this type.
+67 ;;^DD(115.6,2,"DT")
+68 ;;=2900112
+69 ;;^DD(115.6,3,0)
+70 ;;=FOLLOW-UP TIME^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
+71 ;;^DD(115.6,3,3)
+72 ;;=Type a Number between 0 and 999, 0 Decimal Digits
+73 ;;^DD(115.6,3,21,0)
+74 ;;=^^2^2^2891121^
+75 ;;^DD(115.6,3,21,1,0)
+76 ;;=This value, if defined, is the time units for a follow-up
+77 ;;^DD(115.6,3,21,2,0)
+78 ;;=encounter of this type.
+79 ;;^DD(115.6,3,"DT")
+80 ;;=2891107
+81 ;;^DD(115.6,4,0)
+82 ;;=ASK EVENT LOCATION?^S^Y:YES;N:NO;^0;5^Q
+83 ;;^DD(115.6,4,21,0)
+84 ;;=^^3^3^2891121^
+85 ;;^DD(115.6,4,21,1,0)
+86 ;;=This field, if YES, means that the event location will be asked
+87 ;;^DD(115.6,4,21,2,0)
+88 ;;=whenever an encounter of this type is entered into the
+89 ;;^DD(115.6,4,21,3,0)
+90 ;;=Encounter file (115.7).
+91 ;;^DD(115.6,4,"DT")
+92 ;;=2891107
+93 ;;^DD(115.6,5,0)
+94 ;;=INDIVIDUAL/GROUP/BOTH^S^I:INDIVIDUAL;G:GROUP;B:BOTH;^0;6^Q
+95 ;;^DD(115.6,5,21,0)
+96 ;;=^^2^2^2891121^
+97 ;;^DD(115.6,5,21,1,0)
+98 ;;=This field indicates whether the encounter type is an individual one,
+99 ;;^DD(115.6,5,21,2,0)
+100 ;;=a group one, or can be both.
+101 ;;^DD(115.6,5,"DT")
+102 ;;=2891107
+103 ;;^DD(115.6,6,0)
+104 ;;=ASK PATIENT NAME(S)?^S^Y:YES;N:NO;^0;7^Q
+105 ;;^DD(115.6,6,21,0)
+106 ;;=^^3^3^2891121^
+107 ;;^DD(115.6,6,21,1,0)
+108 ;;=This field, if answered YES, means that the clinician will be
+109 ;;^DD(115.6,6,21,2,0)
+110 ;;=prompted for patient names when an encounter of this type
+111 ;;^DD(115.6,6,21,3,0)
+112 ;;=is entered into the Encounter file (115.7).
+113 ;;^DD(115.6,6,"DT")
+114 ;;=2891107
+115 ;;^DD(115.6,7,0)
+116 ;;=ASK # COLLATERALS^S^Y:YES;N:NO;^0;8^Q
+117 ;;^DD(115.6,7,21,0)
+118 ;;=^^4^4^2891121^
+119 ;;^DD(115.6,7,21,1,0)
+120 ;;=This field, if answered YES, means that the clinician will be
+121 ;;^DD(115.6,7,21,2,0)
+122 ;;=prompted for the number of collaterals associated with each
+123 ;;^DD(115.6,7,21,3,0)
+124 ;;=patient when an encounter of this type is entered into the
+125 ;;^DD(115.6,7,21,4,0)
+126 ;;=Encounter file (115.7).
+127 ;;^DD(115.6,7,"DT")
+128 ;;=2891107
+129 ;;^DD(115.6,8,0)
+130 ;;=ASK FOR PATIENT COMMENT?^S^Y:YES;N:NO;^0;9^Q
+131 ;;^DD(115.6,8,21,0)
+132 ;;=^^4^4^2891121^
+133 ;;^DD(115.6,8,21,1,0)
+134 ;;=This field, if answered YES, means that the clinician will be
+135 ;;^DD(115.6,8,21,2,0)
+136 ;;=prompted for a comment to be associated with each patient
+137 ;;^DD(115.6,8,21,3,0)
+138 ;;=when an encounter of this type is entered into the
+139 ;;^DD(115.6,8,21,4,0)
+140 ;;=Encounter file (115.7).
+141 ;;^DD(115.6,8,"DT")
+142 ;;=2891107
+143 ;;^DD(115.6,10,0)
+144 ;;=CATEGORY^S^S:Screening;A:Assessment;E:Pat. Education;C:Community;N:Nutrition Inv.;F:Food Svc.;X:Administrative;^0;2^Q
+145 ;;^DD(115.6,10,21,0)
+146 ;;=^^1^1^2920107^^
+147 ;;^DD(115.6,10,21,1,0)
+148 ;;=The is the category of the Encounter Type.
+149 ;;^DD(115.6,10,"DT")
+150 ;;=2920107
+151 ;;^DD(115.6,99,0)
+152 ;;=INACTIVE?^S^Y:YES;N:NO;^I;1^Q
+153 ;;^DD(115.6,99,1,0)
+154 ;;=^.1
+155 ;;^DD(115.6,99,1,1,0)
+156 ;;=115.6^AC^MUMPS
+157 ;;^DD(115.6,99,1,1,1)
+158 ;;=K:X'="Y" ^FH(115.6,DA,"I")
