FHINI0KO ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(115) 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(115.021,5,21,0)
;;=^^1^1^2891121^
;;^DD(115.021,5,21,1,0)
;;=This field contains the lab test result.
;;^DD(115.021,5,"DT")
;;=2890705
;;^DD(115.021,6,0)
;;=DATE PERFORMED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(115.021,6,21,0)
;;=^^1^1^2891121^
;;^DD(115.021,6,21,1,0)
;;=This field contains the date the lab test was performed.
;;^DD(115.021,6,"DT")
;;=2890705
;;^DD(115.03,0)
;;=CONSULTATION SUB-FIELD^NL^11^10
;;^DD(115.03,0,"ID",1)
;;=W:$D(^(0)) " ",$S($D(^FH(119.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)")
;;^DD(115.03,0,"NM","CONSULTATION")
;;=
;;^DD(115.03,0,"UP")
;;=115.01
;;^DD(115.03,.01,0)
;;=DATE/TIME ENTERED^RD^^0;1^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.03,.01,1,0)
;;=^.1
;;^DD(115.03,.01,1,1,0)
;;=115^ADR
;;^DD(115.03,.01,1,1,1)
;;=S ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)=""
;;^DD(115.03,.01,1,1,2)
;;=K ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)
;;^DD(115.03,.01,3)
;;=
;;^DD(115.03,.01,21,0)
;;=^^2^2^2880710^
;;^DD(115.03,.01,21,1,0)
;;=This field contains the date/time the consult request was
;;^DD(115.03,.01,21,2,0)
;;=entered.
;;^DD(115.03,.01,"DT")
;;=2850512
;;^DD(115.03,1,0)
;;=CONSULT REQUEST^RP119.5'^FH(119.5,^0;2^Q
;;^DD(115.03,1,21,0)
;;=^^2^2^2880710^
;;^DD(115.03,1,21,1,0)
;;=This field contains the specific consult request drawn from
;;^DD(115.03,1,21,2,0)
;;=the Dietetic Consults file (119.5).
;;^DD(115.03,1,"DT")
;;=2850512
;;^DD(115.03,2,0)
;;=COMMENT^F^^0;3^K:$L(X)>80!($L(X)<1) X
;;^DD(115.03,2,3)
;;=ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
;;^DD(115.03,2,21,0)
;;=^^1^1^2880718^^
;;^DD(115.03,2,21,1,0)
;;=This field allows the user to enter a comment as to the consult.
;;^DD(115.03,2,"DT")
;;=2850418
;;^DD(115.03,4,0)
;;=CLINICIAN^RP200'^VA(200,^0;5^Q
;;^DD(115.03,4,1,0)
;;=^.1
;;^DD(115.03,4,1,1,0)
;;=115^ADRU^MUMPS
;;^DD(115.03,4,1,1,1)
;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,8) K:X9'="A" ^FHPT("ADRU",X,DA(2),DA(1),DA) S:X9="A" ^FHPT("ADRU",X,DA(2),DA(1),DA)=""
;;^DD(115.03,4,1,1,2)
;;=K:X ^FHPT("ADRU",X,DA(2),DA(1),DA)
;;^DD(115.03,4,1,1,"%D",0)
;;=^^2^2^2940824^
;;^DD(115.03,4,1,1,"%D",1,0)
;;=This is a cross-reference by Clinician of all consultations with
;;^DD(115.03,4,1,1,"%D",2,0)
;;=an Active status.
;;^DD(115.03,4,21,0)
;;=^^4^4^2880710^
;;^DD(115.03,4,21,1,0)
;;=This field indicates the clinician currently assigned to the
;;^DD(115.03,4,21,2,0)
;;=consult. Initially, it will contain the clinician assigned
;;^DD(115.03,4,21,3,0)
;;=to the consult type, if one has been specified, otherwise, the
;;^DD(115.03,4,21,4,0)
;;=clinician assigned to the ward on which the patient resides.
;;^DD(115.03,4,"DT")
;;=2850506
;;^DD(115.03,6,0)
;;=CLERK^RP200'^VA(200,^0;7^Q
;;^DD(115.03,6,21,0)
;;=^^2^2^2880710^
;;^DD(115.03,6,21,1,0)
;;=This field contains the user entering the request and is
;;^DD(115.03,6,21,2,0)
;;=automatically captured at time of entry.
;;^DD(115.03,6,"DT")
;;=2850418
;;^DD(115.03,7,0)
;;=STATUS^RS^A:ACTIVE;C:COMPLETE;X:CANCELLED;^0;8^Q
;;^DD(115.03,7,1,0)
;;=^.1
;;^DD(115.03,7,1,1,0)
;;=115^ADRV^MUMPS
;;^DD(115.03,7,1,1,1)
;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) S:X9&(X="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)="" K:X9&(X'="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)
;;^DD(115.03,7,1,1,2)
;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) K:X9 ^FHPT("ADRU",X9,DA(2),DA(1),DA)
;;^DD(115.03,7,1,1,"%D",0)
;;=^^2^2^2940824^^
;;^DD(115.03,7,1,1,"%D",1,0)
;;=This is a cross-reference by Clinician (Field 4) of all consults
;;^DD(115.03,7,1,1,"%D",2,0)
;;=with an Active status.
;;^DD(115.03,7,21,0)
;;=^^1^1^2920611^^
;;^DD(115.03,7,21,1,0)
;;=This is the current status of the request.
;;^DD(115.03,7,"DT")
;;=2850506
;;^DD(115.03,8,0)
;;=DATE/TIME CLEARED^D^^0;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(115.03,8,21,0)
;;=^^2^2^2880710^
;;^DD(115.03,8,21,1,0)
;;=This is the date/time the consult was cleared, either by
;;^DD(115.03,8,21,2,0)
;;=completion or cancellation.
;;^DD(115.03,8,"DT")
;;=2850506
;;^DD(115.03,9,0)
;;=CLERK CLEARING^P200'^VA(200,^0;10^Q
;;^DD(115.03,9,21,0)
;;=^^2^2^2880710^
;;^DD(115.03,9,21,1,0)
;;=This is the dietetic person who indicated that the consult
;;^DD(115.03,9,21,2,0)
;;=had been cleared.
;;^DD(115.03,9,"DT")
;;=2850506
;;^DD(115.03,10,0)
;;=INITIAL/FOLLOW-UP^S^I:INITIAL;F:FOLLOW-UP;^0;11^Q
;;^DD(115.03,10,21,0)
;;=^^3^3^2880710^
;;^DD(115.03,10,21,1,0)
;;=If follow-ups are associated with this consult type, then
;;^DD(115.03,10,21,2,0)
;;=this field will indicate whether the consult was an
FHINI0KO ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(115)
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(115.021,5,21,0)
+2 ;;=^^1^1^2891121^
+3 ;;^DD(115.021,5,21,1,0)
+4 ;;=This field contains the lab test result.
+5 ;;^DD(115.021,5,"DT")
+6 ;;=2890705
+7 ;;^DD(115.021,6,0)
+8 ;;=DATE PERFORMED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+9 ;;^DD(115.021,6,21,0)
+10 ;;=^^1^1^2891121^
+11 ;;^DD(115.021,6,21,1,0)
+12 ;;=This field contains the date the lab test was performed.
+13 ;;^DD(115.021,6,"DT")
+14 ;;=2890705
+15 ;;^DD(115.03,0)
+16 ;;=CONSULTATION SUB-FIELD^NL^11^10
+17 ;;^DD(115.03,0,"ID",1)
+18 ;;=W:$D(^(0)) " ",$S($D(^FH(119.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)")
+19 ;;^DD(115.03,0,"NM","CONSULTATION")
+20 ;;=
+21 ;;^DD(115.03,0,"UP")
+22 ;;=115.01
+23 ;;^DD(115.03,.01,0)
+24 ;;=DATE/TIME ENTERED^RD^^0;1^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+25 ;;^DD(115.03,.01,1,0)
+26 ;;=^.1
+27 ;;^DD(115.03,.01,1,1,0)
+28 ;;=115^ADR
+29 ;;^DD(115.03,.01,1,1,1)
+30 ;;=S ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)=""
+31 ;;^DD(115.03,.01,1,1,2)
+32 ;;=K ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)
+33 ;;^DD(115.03,.01,3)
+34 ;;=
+35 ;;^DD(115.03,.01,21,0)
+36 ;;=^^2^2^2880710^
+37 ;;^DD(115.03,.01,21,1,0)
+38 ;;=This field contains the date/time the consult request was
+39 ;;^DD(115.03,.01,21,2,0)
+40 ;;=entered.
+41 ;;^DD(115.03,.01,"DT")
+42 ;;=2850512
+43 ;;^DD(115.03,1,0)
+44 ;;=CONSULT REQUEST^RP119.5'^FH(119.5,^0;2^Q
+45 ;;^DD(115.03,1,21,0)
+46 ;;=^^2^2^2880710^
+47 ;;^DD(115.03,1,21,1,0)
+48 ;;=This field contains the specific consult request drawn from
+49 ;;^DD(115.03,1,21,2,0)
+50 ;;=the Dietetic Consults file (119.5).
+51 ;;^DD(115.03,1,"DT")
+52 ;;=2850512
+53 ;;^DD(115.03,2,0)
+54 ;;=COMMENT^F^^0;3^K:$L(X)>80!($L(X)<1) X
+55 ;;^DD(115.03,2,3)
+56 ;;=ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
+57 ;;^DD(115.03,2,21,0)
+58 ;;=^^1^1^2880718^^
+59 ;;^DD(115.03,2,21,1,0)
+60 ;;=This field allows the user to enter a comment as to the consult.
+61 ;;^DD(115.03,2,"DT")
+62 ;;=2850418
+63 ;;^DD(115.03,4,0)
+64 ;;=CLINICIAN^RP200'^VA(200,^0;5^Q
+65 ;;^DD(115.03,4,1,0)
+66 ;;=^.1
+67 ;;^DD(115.03,4,1,1,0)
+68 ;;=115^ADRU^MUMPS
+69 ;;^DD(115.03,4,1,1,1)
+70 ;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,8) K:X9'="A" ^FHPT("ADRU",X,DA(2),DA(1),DA) S:X9="A" ^FHPT("ADRU",X,DA(2),DA(1),DA)=""
+71 ;;^DD(115.03,4,1,1,2)
+72 ;;=K:X ^FHPT("ADRU",X,DA(2),DA(1),DA)
+73 ;;^DD(115.03,4,1,1,"%D",0)
+74 ;;=^^2^2^2940824^
+75 ;;^DD(115.03,4,1,1,"%D",1,0)
+76 ;;=This is a cross-reference by Clinician of all consultations with
+77 ;;^DD(115.03,4,1,1,"%D",2,0)
+78 ;;=an Active status.
+79 ;;^DD(115.03,4,21,0)
+80 ;;=^^4^4^2880710^
+81 ;;^DD(115.03,4,21,1,0)
+82 ;;=This field indicates the clinician currently assigned to the
+83 ;;^DD(115.03,4,21,2,0)
+84 ;;=consult. Initially, it will contain the clinician assigned
+85 ;;^DD(115.03,4,21,3,0)
+86 ;;=to the consult type, if one has been specified, otherwise, the
+87 ;;^DD(115.03,4,21,4,0)
+88 ;;=clinician assigned to the ward on which the patient resides.
+89 ;;^DD(115.03,4,"DT")
+90 ;;=2850506
+91 ;;^DD(115.03,6,0)
+92 ;;=CLERK^RP200'^VA(200,^0;7^Q
+93 ;;^DD(115.03,6,21,0)
+94 ;;=^^2^2^2880710^
+95 ;;^DD(115.03,6,21,1,0)
+96 ;;=This field contains the user entering the request and is
+97 ;;^DD(115.03,6,21,2,0)
+98 ;;=automatically captured at time of entry.
+99 ;;^DD(115.03,6,"DT")
+100 ;;=2850418
+101 ;;^DD(115.03,7,0)
+102 ;;=STATUS^RS^A:ACTIVE;C:COMPLETE;X:CANCELLED;^0;8^Q
+103 ;;^DD(115.03,7,1,0)
+104 ;;=^.1
+105 ;;^DD(115.03,7,1,1,0)
+106 ;;=115^ADRV^MUMPS
+107 ;;^DD(115.03,7,1,1,1)
+108 ;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) S:X9&(X="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)="" K:X9&(X'="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)
+109 ;;^DD(115.03,7,1,1,2)
+110 ;;=S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) K:X9 ^FHPT("ADRU",X9,DA(2),DA(1),DA)
+111 ;;^DD(115.03,7,1,1,"%D",0)
+112 ;;=^^2^2^2940824^^
+113 ;;^DD(115.03,7,1,1,"%D",1,0)
+114 ;;=This is a cross-reference by Clinician (Field 4) of all consults
+115 ;;^DD(115.03,7,1,1,"%D",2,0)
+116 ;;=with an Active status.
+117 ;;^DD(115.03,7,21,0)
+118 ;;=^^1^1^2920611^^
+119 ;;^DD(115.03,7,21,1,0)
+120 ;;=This is the current status of the request.
+121 ;;^DD(115.03,7,"DT")
+122 ;;=2850506
+123 ;;^DD(115.03,8,0)
+124 ;;=DATE/TIME CLEARED^D^^0;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+125 ;;^DD(115.03,8,21,0)
+126 ;;=^^2^2^2880710^
+127 ;;^DD(115.03,8,21,1,0)
+128 ;;=This is the date/time the consult was cleared, either by
+129 ;;^DD(115.03,8,21,2,0)
+130 ;;=completion or cancellation.
+131 ;;^DD(115.03,8,"DT")
+132 ;;=2850506
+133 ;;^DD(115.03,9,0)
+134 ;;=CLERK CLEARING^P200'^VA(200,^0;10^Q
+135 ;;^DD(115.03,9,21,0)
+136 ;;=^^2^2^2880710^
+137 ;;^DD(115.03,9,21,1,0)
+138 ;;=This is the dietetic person who indicated that the consult
+139 ;;^DD(115.03,9,21,2,0)
+140 ;;=had been cleared.
+141 ;;^DD(115.03,9,"DT")
+142 ;;=2850506
+143 ;;^DD(115.03,10,0)
+144 ;;=INITIAL/FOLLOW-UP^S^I:INITIAL;F:FOLLOW-UP;^0;11^Q
+145 ;;^DD(115.03,10,21,0)
+146 ;;=^^3^3^2880710^
+147 ;;^DD(115.03,10,21,1,0)
+148 ;;=If follow-ups are associated with this consult type, then
+149 ;;^DD(115.03,10,21,2,0)
+150 ;;=this field will indicate whether the consult was an
