FHINI0N2 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(119.9) 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(119.9,100,21,6,0)
;;=not have a diet pattern which is related to the tray tickets.
;;^DD(119.9,100,21,7,0)
;;=If the answer is No, you will not be asked the question and
;;^DD(119.9,100,21,8,0)
;;=receive the message.
;;^DD(119.9,100,"DT")
;;=2941028
;;^DD(119.9001,0)
;;=LAB TEST SUB-FIELD^^4^5
;;^DD(119.9001,0,"IX","B",119.9001,.01)
;;=
;;^DD(119.9001,0,"NM","LAB TEST")
;;=
;;^DD(119.9001,0,"UP")
;;=119.9
;;^DD(119.9001,.01,0)
;;=LAB TEST^M*P60'^LAB(60,^0;1^S DIC("S")="I $P(^(0),U,5)[""CH"",""BO""[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(119.9001,.01,1,0)
;;=^.1
;;^DD(119.9001,.01,1,1,0)
;;=119.9001^B
;;^DD(119.9001,.01,1,1,1)
;;=S ^FH(119.9,DA(1),"L","B",$E(X,1,30),DA)=""
;;^DD(119.9001,.01,1,1,2)
;;=K ^FH(119.9,DA(1),"L","B",$E(X,1,30),DA)
;;^DD(119.9001,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(119.9001,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the LAB TEST field.
;;^DD(119.9001,.01,3)
;;=
;;^DD(119.9001,.01,12)
;;=Can only select Chemistry tests
;;^DD(119.9001,.01,12.1)
;;=S DIC("S")="I $P(^(0),U,5)[""CH"",""BO""[$P(^(0),U,3)"
;;^DD(119.9001,.01,21,0)
;;=^^2^2^2890709^
;;^DD(119.9001,.01,21,1,0)
;;=This field is a pointer to File 60, Lab Tests, and is a test
;;^DD(119.9001,.01,21,2,0)
;;=of interest to clinicians.
;;^DD(119.9001,.01,"DT")
;;=2890629
;;^DD(119.9001,1,0)
;;=SPECIMEN^RFXO^^0;2^K:$L(X)>10!($L(X)<1) X I $D(X) S P60=+^FH(119.9,1,"L",DA,0),DIC="^LAB(60,P60,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y<1 X K P60
;;^DD(119.9001,1,2)
;;=S Y(0)=Y S Y=$S($D(^LAB(61,+Y,0)):$P(^(0),"^",1),1:Y)
;;^DD(119.9001,1,2.1)
;;=S Y=$S($D(^LAB(61,+Y,0)):$P(^(0),"^",1),1:Y)
;;^DD(119.9001,1,3)
;;=
;;^DD(119.9001,1,4)
;;=S P60=+^FH(119.9,1,"L",DA,0),DIC="^LAB(60,P60,1,",DIC(0)="Q",D="B" K DO D DQ^DICQ K DIC,DO,D,P60 S DIC=DIE
;;^DD(119.9001,1,21,0)
;;=^^2^2^2890709^
;;^DD(119.9001,1,21,1,0)
;;=This field points to the specimen/typology file and indicates which
;;^DD(119.9001,1,21,2,0)
;;=specimen of the selected lab test is desired.
;;^DD(119.9001,1,"DT")
;;=2890628
;;^DD(119.9001,2,0)
;;=PRINT ON ASSESSMENT?^S^Y:YES;N:NO;^0;3^Q
;;^DD(119.9001,2,21,0)
;;=^^2^2^2890709^
;;^DD(119.9001,2,21,1,0)
;;=This field, when answered YES, will permit printing of the lab
;;^DD(119.9001,2,21,2,0)
;;=results on the Nutrition Assessment form.
;;^DD(119.9001,2,"DT")
;;=2890709
;;^DD(119.9001,3,0)
;;=PRINT ON SCREENING?^S^Y:YES;N:NO;^0;4^Q
;;^DD(119.9001,3,21,0)
;;=^^2^2^2890709^
;;^DD(119.9001,3,21,1,0)
;;=This field, when answered YES, will permit printing of the lab
;;^DD(119.9001,3,21,2,0)
;;=results on the Nutrition Screening form.
;;^DD(119.9001,3,"DT")
;;=2890709
;;^DD(119.9001,4,0)
;;=IDENT GROUP^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(119.9001,4,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(119.9001,4,21,0)
;;=^^4^4^2901015^
;;^DD(119.9001,4,21,1,0)
;;=This number, called the identification group, will allow either
;;^DD(119.9001,4,21,2,0)
;;=(a) specification of a particular laboratory test with a known
;;^DD(119.9001,4,21,3,0)
;;=number, or (b) allow selection of only the latest value from
;;^DD(119.9001,4,21,4,0)
;;=among a group of tests with the same number.
;;^DD(119.9001,4,"DT")
;;=2901015
;;^DD(119.93,0)
;;=LABEL PRINTERS SUB-FIELD^^1^2
;;^DD(119.93,0,"DT")
;;=2911129
;;^DD(119.93,0,"IX","B",119.93,.01)
;;=
;;^DD(119.93,0,"NM","LABEL PRINTERS")
;;=
;;^DD(119.93,0,"UP")
;;=119.9
;;^DD(119.93,.01,0)
;;=LABEL PRINTERS^MP3.5'X^%ZIS(1,^0;1^I $D(X) S DINUM=X
;;^DD(119.93,.01,1,0)
;;=^.1
;;^DD(119.93,.01,1,1,0)
;;=119.93^B
;;^DD(119.93,.01,1,1,1)
;;=S ^FH(119.9,DA(1),"D","B",$E(X,1,30),DA)=""
;;^DD(119.93,.01,1,1,2)
;;=K ^FH(119.9,DA(1),"D","B",$E(X,1,30),DA)
;;^DD(119.93,.01,21,0)
;;=^^3^3^2911204^
;;^DD(119.93,.01,21,1,0)
;;=This field is a pointer to the Device File and indicates a printer used
;;^DD(119.93,.01,21,2,0)
;;=for printing diet labels, tubefeeding labels, supplemental feeding labels
;;^DD(119.93,.01,21,3,0)
;;=or other labels.
;;^DD(119.93,.01,"DT")
;;=2911129
;;^DD(119.93,1,0)
;;=SIZE OF LABELS^S^1:3-1/2 x 15/16;2:4 x 1-7/16;^0;2^Q
;;^DD(119.93,1,21,0)
;;=^^1^1^2930520^^
;;^DD(119.93,1,21,1,0)
;;=This field indicates the size of label stock on the printer.
;;^DD(119.93,1,"DT")
;;=2911129
;;^DD(119.985,0)
;;=DRUG CLASSIFICATIONS SUB-FIELD^^.01^1
;;^DD(119.985,0,"IX","B",119.985,.01)
;;=
;;^DD(119.985,0,"NM","DRUG CLASSIFICATIONS")
;;=
;;^DD(119.985,0,"UP")
;;=119.9
;;^DD(119.985,.01,0)
;;=DRUG CLASSIFICATIONS^MP50.605'^PS(50.605,^0;1^Q
FHINI0N2 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(119.9)
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(119.9,100,21,6,0)
+2 ;;=not have a diet pattern which is related to the tray tickets.
+3 ;;^DD(119.9,100,21,7,0)
+4 ;;=If the answer is No, you will not be asked the question and
+5 ;;^DD(119.9,100,21,8,0)
+6 ;;=receive the message.
+7 ;;^DD(119.9,100,"DT")
+8 ;;=2941028
+9 ;;^DD(119.9001,0)
+10 ;;=LAB TEST SUB-FIELD^^4^5
+11 ;;^DD(119.9001,0,"IX","B",119.9001,.01)
+12 ;;=
+13 ;;^DD(119.9001,0,"NM","LAB TEST")
+14 ;;=
+15 ;;^DD(119.9001,0,"UP")
+16 ;;=119.9
+17 ;;^DD(119.9001,.01,0)
+18 ;;=LAB TEST^M*P60'^LAB(60,^0;1^S DIC("S")="I $P(^(0),U,5)[""CH"",""BO""[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+19 ;;^DD(119.9001,.01,1,0)
+20 ;;=^.1
+21 ;;^DD(119.9001,.01,1,1,0)
+22 ;;=119.9001^B
+23 ;;^DD(119.9001,.01,1,1,1)
+24 ;;=S ^FH(119.9,DA(1),"L","B",$E(X,1,30),DA)=""
+25 ;;^DD(119.9001,.01,1,1,2)
+26 ;;=K ^FH(119.9,DA(1),"L","B",$E(X,1,30),DA)
+27 ;;^DD(119.9001,.01,1,1,"%D",0)
+28 ;;=^^1^1^2911118^
+29 ;;^DD(119.9001,.01,1,1,"%D",1,0)
+30 ;;=This is the normal B cross-reference of the LAB TEST field.
+31 ;;^DD(119.9001,.01,3)
+32 ;;=
+33 ;;^DD(119.9001,.01,12)
+34 ;;=Can only select Chemistry tests
+35 ;;^DD(119.9001,.01,12.1)
+36 ;;=S DIC("S")="I $P(^(0),U,5)[""CH"",""BO""[$P(^(0),U,3)"
+37 ;;^DD(119.9001,.01,21,0)
+38 ;;=^^2^2^2890709^
+39 ;;^DD(119.9001,.01,21,1,0)
+40 ;;=This field is a pointer to File 60, Lab Tests, and is a test
+41 ;;^DD(119.9001,.01,21,2,0)
+42 ;;=of interest to clinicians.
+43 ;;^DD(119.9001,.01,"DT")
+44 ;;=2890629
+45 ;;^DD(119.9001,1,0)
+46 ;;=SPECIMEN^RFXO^^0;2^K:$L(X)>10!($L(X)<1) X I $D(X) S P60=+^FH(119.9,1,"L",DA,0),DIC="^LAB(60,P60,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y<1 X K P60
+47 ;;^DD(119.9001,1,2)
+48 ;;=S Y(0)=Y S Y=$S($D(^LAB(61,+Y,0)):$P(^(0),"^",1),1:Y)
+49 ;;^DD(119.9001,1,2.1)
+50 ;;=S Y=$S($D(^LAB(61,+Y,0)):$P(^(0),"^",1),1:Y)
+51 ;;^DD(119.9001,1,3)
+52 ;;=
+53 ;;^DD(119.9001,1,4)
+54 ;;=S P60=+^FH(119.9,1,"L",DA,0),DIC="^LAB(60,P60,1,",DIC(0)="Q",D="B" K DO D DQ^DICQ K DIC,DO,D,P60 S DIC=DIE
+55 ;;^DD(119.9001,1,21,0)
+56 ;;=^^2^2^2890709^
+57 ;;^DD(119.9001,1,21,1,0)
+58 ;;=This field points to the specimen/typology file and indicates which
+59 ;;^DD(119.9001,1,21,2,0)
+60 ;;=specimen of the selected lab test is desired.
+61 ;;^DD(119.9001,1,"DT")
+62 ;;=2890628
+63 ;;^DD(119.9001,2,0)
+64 ;;=PRINT ON ASSESSMENT?^S^Y:YES;N:NO;^0;3^Q
+65 ;;^DD(119.9001,2,21,0)
+66 ;;=^^2^2^2890709^
+67 ;;^DD(119.9001,2,21,1,0)
+68 ;;=This field, when answered YES, will permit printing of the lab
+69 ;;^DD(119.9001,2,21,2,0)
+70 ;;=results on the Nutrition Assessment form.
+71 ;;^DD(119.9001,2,"DT")
+72 ;;=2890709
+73 ;;^DD(119.9001,3,0)
+74 ;;=PRINT ON SCREENING?^S^Y:YES;N:NO;^0;4^Q
+75 ;;^DD(119.9001,3,21,0)
+76 ;;=^^2^2^2890709^
+77 ;;^DD(119.9001,3,21,1,0)
+78 ;;=This field, when answered YES, will permit printing of the lab
+79 ;;^DD(119.9001,3,21,2,0)
+80 ;;=results on the Nutrition Screening form.
+81 ;;^DD(119.9001,3,"DT")
+82 ;;=2890709
+83 ;;^DD(119.9001,4,0)
+84 ;;=IDENT GROUP^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+85 ;;^DD(119.9001,4,3)
+86 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+87 ;;^DD(119.9001,4,21,0)
+88 ;;=^^4^4^2901015^
+89 ;;^DD(119.9001,4,21,1,0)
+90 ;;=This number, called the identification group, will allow either
+91 ;;^DD(119.9001,4,21,2,0)
+92 ;;=(a) specification of a particular laboratory test with a known
+93 ;;^DD(119.9001,4,21,3,0)
+94 ;;=number, or (b) allow selection of only the latest value from
+95 ;;^DD(119.9001,4,21,4,0)
+96 ;;=among a group of tests with the same number.
+97 ;;^DD(119.9001,4,"DT")
+98 ;;=2901015
+99 ;;^DD(119.93,0)
+100 ;;=LABEL PRINTERS SUB-FIELD^^1^2
+101 ;;^DD(119.93,0,"DT")
+102 ;;=2911129
+103 ;;^DD(119.93,0,"IX","B",119.93,.01)
+104 ;;=
+105 ;;^DD(119.93,0,"NM","LABEL PRINTERS")
+106 ;;=
+107 ;;^DD(119.93,0,"UP")
+108 ;;=119.9
+109 ;;^DD(119.93,.01,0)
+110 ;;=LABEL PRINTERS^MP3.5'X^%ZIS(1,^0;1^I $D(X) S DINUM=X
+111 ;;^DD(119.93,.01,1,0)
+112 ;;=^.1
+113 ;;^DD(119.93,.01,1,1,0)
+114 ;;=119.93^B
+115 ;;^DD(119.93,.01,1,1,1)
+116 ;;=S ^FH(119.9,DA(1),"D","B",$E(X,1,30),DA)=""
+117 ;;^DD(119.93,.01,1,1,2)
+118 ;;=K ^FH(119.9,DA(1),"D","B",$E(X,1,30),DA)
+119 ;;^DD(119.93,.01,21,0)
+120 ;;=^^3^3^2911204^
+121 ;;^DD(119.93,.01,21,1,0)
+122 ;;=This field is a pointer to the Device File and indicates a printer used
+123 ;;^DD(119.93,.01,21,2,0)
+124 ;;=for printing diet labels, tubefeeding labels, supplemental feeding labels
+125 ;;^DD(119.93,.01,21,3,0)
+126 ;;=or other labels.
+127 ;;^DD(119.93,.01,"DT")
+128 ;;=2911129
+129 ;;^DD(119.93,1,0)
+130 ;;=SIZE OF LABELS^S^1:3-1/2 x 15/16;2:4 x 1-7/16;^0;2^Q
+131 ;;^DD(119.93,1,21,0)
+132 ;;=^^1^1^2930520^^
+133 ;;^DD(119.93,1,21,1,0)
+134 ;;=This field indicates the size of label stock on the printer.
+135 ;;^DD(119.93,1,"DT")
+136 ;;=2911129
+137 ;;^DD(119.985,0)
+138 ;;=DRUG CLASSIFICATIONS SUB-FIELD^^.01^1
+139 ;;^DD(119.985,0,"IX","B",119.985,.01)
+140 ;;=
+141 ;;^DD(119.985,0,"NM","DRUG CLASSIFICATIONS")
+142 ;;=
+143 ;;^DD(119.985,0,"UP")
+144 ;;=119.9
+145 ;;^DD(119.985,.01,0)
+146 ;;=DRUG CLASSIFICATIONS^MP50.605'^PS(50.605,^0;1^Q
